$var =~ s/^(.*?)\n(?:.*)/$1/s;