Select Code to Download

sub qwx {
    local $_ = @_ ? $_[0] : $_;
...
    s/\s+/ /g;
    return split ' ', $text;
}

my @items = qwx"
    this
...
    a     # commented
    list
";