( $myvar = <FILEPTR> )  =~ s/\n+//g;