while (<DATA>) {
    # seek interesting stuff . . .
    while (<DATA>) {
        last if /^\n/;
        my (@codes,@names);
        ($codes[0],$names[0],$codes[1],$names[1]) =
            unpack 'xx A8 x A23 xx A8 xxx A22', $_;
        push @interesting_stuff, grep {$_} @names;
    }
}