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