Select Code to Download

$ perl -e '$_ = "USERID1|2215|Jones|";
> my( $x, $y, $z ) = split /\|/;
...
> print "( $x, $y, $z )\n";
> '
( USERID1, 2215, Jones| )

my @strings = qw(
  USERID1|2215|Jones
...
  USERID2|2500|Francis
  USERID2|1500|Francis
);

$ perl bench_inside_outside.pl
             Rate  outside outside2   inside  inside2
...
outside2 113390/s       2%       --     -38%     -39%
inside   181595/s      64%      60%       --      -2%
inside2  186121/s      68%      64%       2%       --