$next_line = $1 . $next_line if s/\n(.*)//s;