Select Code to Download

perl -ple's/^(\S+\s+\S+).*/$1/' infile > outfile

perl -ple's/^\S+\s+\S+\K//' infile > outfile

perl -ne'print if $.>1'

chomp( my $header = <> );
my @headers = $header =~ /\S+/g;
...
        );
    }
}