Select Code to Download

        # Split on multiple spaces using regex captured matches
        my @temp_and_starts = $_                              =~ /[^\s
+]+/g;
        my @last_AT_fracs   = <$in>                           =~ /[^\s
+]+/g;
        my @twenty_SFs      = (<$in> . <$in> . <$in> . <$in>) =~ /[^\s
+]+/g;

$ perl -E '$_="This and that and other";@x=  $_=~ /[^\s]+/g;; say for 
+@x'
This
...
that
and
other