$myformtext =~ s!(\s)(http://\w.*?)(\s)!$1$2$3!gm;