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