$buf =~ s/\G(.*\n)//g