if ($var1 =~ /^$var2/) {
  print "matched";
}