Select Code to Download

"FIRST\tMIDDLE\tLAST\tSTRNO\tSTRNAME\tCITY\tSTATE\tZIP"
  1       2      3      4       5       6     7 ---->

my @capture = ( split /\t/, $line, 7 )[ 2, 0, 5 ];