#### #### while ($body_str =~ s|href="http://(.*)"| ($1 =~ /^www.danheller.com/) ? $1 : qq($1" target="_blank)|eg) { print "Found '$1'\n"; }