chomp(my $var = <STDIN>);
  $var = qr($var);

$var1 = "MSTerminating"
$var2 = "MSORIGINATING"
$var3 = "TRANSIT"

  my $pattern = qr($var1|$var2|$var3);
  while (<FILE>)
  {
     print if /$var/ && /$pattern/;
  }