$line = <$FILE>;
        until ( $line =~ /^c/ or $line =~ /^mt?\d+/ ) {
            ...
            $line = <$FILE>;
        }