$thisstring = "abjdkwosyksljadfkjadfaduifalkdjfaslflksdf";

sub H {
  return qr/abjdk|adfkj/;
}

if ($thisstring =~ H) {
  print "Yes!\n";
} else {
  print "No.\n";
}