Select Code to Download

    <a href="http://www.foobar.com/xxx">
    <a href="http://www.danheller.com/xxx">

    <a href="http://www.foobar.com/xxx" target="_blank">
    <a href="http://www.danheller.com/xxx">

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