Select Code to Download

elsif ( /^ \s+ ( \S{13} \s+ \S+ \s+ \S.* )/x ) {
    my @fields = unpack "a21 a9 a9 a2 a13 a8 a9 a9 a4 a5 a6", $1;
    # ...
}

elsif ( /^ \s+ ( \S{13} \s+ \S+ \s+ \S.* )/x ) {
    my @field = qw(
...
    printf "      %-10s = %s\n", $_, $value{ $_ } for @field;
    print "\n";
}