Select Code to Download

use strict;
use warnings;
...
print "\$str is: $str\n";
print "Cleaned up: " . cleanup2($str) ."\n";
print "\$str is: $str\n";

$str is: <some> text with';*()/? nasty chars. scripted is ok, but not 
+script
Cleaned up: some text with nasty chars. scripted is ok, but not
$str is: <some> text with';*()/? nasty chars. scripted is ok, but not 
+script
Cleaned up: some text with nasty chars. scripted is ok, but not
$str is: some text with nasty chars. scripted is ok, but not