< iw_perl>my $text = iwpt_dcr_value('dcr.Your.TextArea.Name');if($text =~ /(.*)a href=(.*)\>(.*)\<\/a\>(.*)/) { $text = $1 . "a href='javascript:window.open('$2')'>" . $3 . '< /a>' . $4;}< /iw_perl>