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