$var = ($var =~ s/\n//gr) =~ s/\s+//gr;