$string =~ s!http://(.+?)(\s|$)![Link] !; #### [Link] #### $string =~ s!http://(.+?)(\s|$)![Link] !; #### [Link]