Select Code to Download

sub id_parse {
  my $string = shift;
  return split( /\./, $string, 2 );
}

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

#!/usr/bin/perl

...
    'Old way  U' => $old_upp,
  },
);

               Rate Old way    Only TR LC
Old way    280899/s         --       -21%
...
               Rate Old way  U Only TR UC
Old way  U 340136/s         --        -4%
Only TR UC 354610/s         4%         --

sub micro {
  my $string = shift;
  my( $id, $session ) = split( /\./, $string, 2 );
  return( $id, $session );
}

               Rate Old way    Only TR LC Micro Optm
Old way    277778/s         --       -21%       -28%
...
Old way  U 340136/s         --        -4%       -12%
Only TR UC 354610/s         4%         --        -8%
Micro OptU 384615/s        13%         8%         --

$ perl -MO=Concise -e '
sub foo {
...
-           <1> ex-rv2cv sK/1 ->-
5              <#> gv[*foo] s ->6
-e syntax OK

s**lil*;  $*=join'',sort split q**;  s;.*;grr; &&s+(.(.)).+$2$1+; $; =
qq-$_-;s,.*,ahc,;$,.=chop for split q,,,reverse;print for($,,$;,$*,$/)