if ( $line =~ m/^0\s+(\S*?)\s+(SUBCASE)|(SUBCOM)|(SYM\b)|(SYMCOM)|(REPCASE)/ ) {
    $loadname = $1 if $1;
    $type = $+;
    next;
}