Select Code to Download

  my @column_widths = (57, 17, '*');

  my ($desc, $code, $other_thingy) = unpack $unpack_spec, $_;
  foreach my $piece ($desc, $code, $other_thingy) {
    $piece =~ s/^\s+//;
    $piece =~ s/\s+$//;
  }

# Change these to the actual column widths. Use a star at the end to g
+et the rest.
my @column_widths = ( 57, 17, '*');
...

GMF: Manufacturing (NAICS)
G3311A2: Iron and steel products