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


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