#why is it silly?
for my $match ("hi","lo"){
  my $re= qr/($match)/o;
  print "\$match is $match\n";
  print "'chimp' matches (", 'chimp' =~ $re, ")\n";
  print "'slow' matches (", 'slow' =~ $re, ")\n";
}
[download]