Select Code to Download

#!/bin/perl5
use strict;
...
__DATA__
                    AP040003EZ9891783    61125    N        BX    108.0
+0000   03196             00000   D    Y     B
                    BP041303DD554        009J0    N        BX      8.7
+5000   03168       62    00000        Y     W