$string = "useridagohiluserid>traderidagohiltraderidjiagohilji";
if ($string =~ /traderid(.*?)traderid/sig)
{
   $string =~ s/(?<=traderid)$1(?!=traderid)/myword/ ;
}
print "$string\n" ;