$var =~ s/\n.*//s;