$text =~ s!([^\s]+\.com)!<a href="http://www.$1" target="_new">$1</a>!gi;