$line= 'http://' . $line if (not $line=~/^http:/);
   print $new $line;