#!/usr/bin/perl
use List::Util 'shuffle';
my $c = "I don't give a fuck. I was drinking Sprite when I read your fucking headline.";
my $d = join ". ", shuffle split(/\. /, join " ", shuffle split(" ", $c));
$d =~ s/(\. [a-z]|^[a-z])/uc $1/ge;
$d .= "." if ($d !~ /\.$/);
print $d;
Start a new topic to continue this conversation.
Or browse the latest topics.