sub Linker { ($mystring)=@_; @myarray = ($mystring =~ m/(\d\d\d+)/g); foreach $a (@myarray){ $url = "$a"; $mystring=~s/$a/$url/g; } return $mystring; }