Select Code to Download

use constant UNPACKER => 'A24 A*';

...
close IN;

sub unpacker { unpack('A24 A*', $_) }