Select Code to Download

#! /usr/bin/perl
use warnings;
...
for my $part (split ' ', $string) {
    print "<$part>\n";
}