$src ='<?xml version="1.0" encoding="UTF-8"?><record name="rightnav" type="content"><item name="RHS_Image"><value>/me/accounts/include/images/accounts_RHS.jpg</value>
</item>
    <item name="RHS_Navigation">';

##</code><code>##

$new_tag ='<item name="abcd"><value>';

if($strFile =~ /<record (.*)>/igm){
  $strFile =~ s/$&/$&$new_tag/i;
}