Help for this page

Select Code to Download

Select or download this

  my @arr1 = grep { /reg exp/ } split /\|/, $string;

...
      Rate orig    A
orig 232/s   -- -30%
A    331/s  43%   --