Select Code to Download

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

for my $ix (1..10){
    print "ix($ix)\n";
...
    print "its not threee\n";
}
__END__