my $re1 = qr/3_prtnm_/;
  my $re2 = qr/2_tname_/;
  # ...
  while( <STDF> ) {
  
  # ...

      if( m/$re1/ ) {
         @tmp = split($re1);

         #...

      } elsif( m/$re2/ ) {
         @tmp = split($re2);

         #...

      }
   }