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}