Select Code to Download

$text =~ s/[^A-z\.\,\;\-\n\'\ \?\"0-9\$\:]//g;
$text =~ s/\n/ /g;
while ($text =~ s/\s\s/ /g) {};

$text =~ tr/A-z0-9.,;'?!":$\n\t\r -//dc;
$text =~ s/\s+/ /g;