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