Select Code to Download

use strict;
use warnings;
...
for (split m{(\s+|"[^"]*")}, $str) {
    print $_, $/;
}

use strict;
use warnings;
...
    next unless length $_;
    print "<$_>\n";
}