$s =~ s!(\d+)!<a href="http://www.$1.com">$1</a>!g;