Select Code to Download

my @res = $string =~ m/\s*(\S+)\s*(\S+)\s*(\S+)\s*(\S+)\s*/ ;
push @sps, $res[ $columnNumber ];

@res = split ' ', $string;
push @sps, $res[ $columnNumber ];

# or if you want one line
push @sps, (split ' ', $string)[$columNumber];