Select Code to Download

#/usr/bin/perl -w
use strict;
...
my ($fifth, $sixth) = (split(/\s+|:/,$in) )[5,6];

print "$fifth:$sixth\n"; #2105:2123