Select Code to Download

sub match_and_tr {
  my $string = shift;
...
  $id =~ /[a-z]/ and $id =~ tr/a-z/A-Z/;
  return( $id, $session );
}

               Rate Old way    Only TR LC
...
               Rate Only TR UC Old way  U
Only TR UC 210084/s         --        -2%
Old way  U 213675/s         2%         --