# 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;