if (/^([^_]{2}_[^_]+)_/) {
        print $1;
    }