Select Code to Download

$line = sprintf qq{Test #1 'Show me Waynes world','Jennys Basketball s
+hoes'\n};
print $line;   # <- added this line
...
print $line;   # <- added this line
$line =~ s/(')[^'\\]*(?:\\.[^'\\]*)*(')/$1SSS$2/g;
print $line;