Select Code to Download

#!/usr/bin/env perl -l

...
    chomp(my $line = shift);
    join ' ' => (split /:/ => $line)[1,2];
}

$ pm_1126327_combine_file_data.pl
=====================================
...
| B&O 101         | CSXT 1001       |
| B&O 102         | CSXT 1002       |
=====================================

while (1) {
    last if eof $fh1;
    printf $format => get_data(scalar <$fh1>), get_data(scalar <$fh2>)
+;
}