$data=~ s/.+\n?\z//;
これがいいかもね