say for map { (/\A\s*(.*?)\s*\z/) } split /\|/, $str;