elsif($var1=~/($var2[a-z]{1})/){
  $var3 = $1;
}