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