use 5.010;my@foo=split/\|/,q{foo|bar|bar};foreach my$x(@foo){say$x}