Re^3: Bugfixing Old Code

[NetWallah]

Without knowing what the data looks like, here is my guess at what "should" work:

        my @temp_and_starts =  $_=~/(\S+)/g;
        my @last_AT_fracs   =  scalar(<$in>)  =~/(\S+)/g;
        my @twenty_SFs      = (<$in> . <$in> . <$in> . <$in>) =~/(\S+)
+/sg;

[bliako]

I thought that required brackets as in my @temp_and_starts = ($_=~/(\S+)/g); but it does not.

[choroba]

Also note that $_=~ can be shortened to . Moreover, you don't need a capture if you capture the whole pattern.

my @temp_and_starts = /\S+/g;

[NetWallah]

You are correct - the capturing parens are not necessary,
In that case, the originally posted code is correct:

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

and my test below shows that it works:

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