sub contains_perl {
  $_[0] =~ m/[\$@%]\w/;
}