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