Select Code to Download

my $string = "Hello World!\n  Oh poor Yorick, his world I knew well ye
+s I did";
($err) = $string =~ s#(\w+)#$1#g;
print $err;