use re 'debug';
$_ = q{<Hit_id>gnl|BL_ORD_ID|3665984</Hit_id>};
s/\>.\</\>REPLACE\</;
__END__
##</code><code>##

for my $ix (1..10){
    print "ix($ix)\n";
    if( $ix == 3 ){
        print "its threeee\n";
        next;
        print "PANCAKES\n";
    }
    print "its not threee\n";
}
__END__