Select Code to Download

  my $lookfor = ($line =~ /TC/g) ? 'TC' : 26;
  print $lookfor;

  my $lookfor = do {
    if( $line =~ /^(\w{3})(\d{3})/ ) {
...
       lc( substr( $line, 0, 4 ));
    }
  };