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

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

         #...

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

         #...

      }
   }

##</code><code>##

  my $re = qr/(3_prtnm_|2_prtnm_|2_mrslt_)/;

  # ...

  while( my $line = <STDF> ) {
    if( m/$re/ ) {
       my $sep = $1;
       my @tmp = split( /$sep/, $line );

       # ...

    }
  }