Select Code to Download

my $s = " foo bar baz";

print join("|", split /\s+/, $s), "\n";  # prints  |foo|bar|baz
print join("|", split ' ', $s), "\n";    # prints  foo|bar|baz