Select Code to Download

#!/usr/bin/perl -w

...
{
    print "$1\n" if m/(\S+)/;
}

#!/usr/bin/perl -w

...
    m/(\S*)/;
    print "$1\n";
}