Select Code to Download

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

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