You don't really need the "\n" and "\t"s in there. If you're really after readability consider using a heredoc which will let you actually format the code readably.

my $code = <<EOSUB;
sub find {
  my \$str = shift;
  \$str =~/$patt/;
}
EOSUB
[download]