Select Code to Download

    my ($from, $dept, $to, $arr) = unpack('x23a4x2a4x3a4x1a4', $_);

x23: skip 23 characters
a4: get 4 characters
x2: skip 2
a4: get 4
...

    s/\s+//g for ($from, $dept, $to, $arr);

#!/usr/bin/perl
use warnings;
...
    s/\s+//g for ($from, $dept, $to, $arr);
    print "$from$dept:$to$arr\n";
}