open(B, "any.html"); while(){ $line = $_; print $line; }