#!/usr/local/bin/perl
$_ = "foo\n";
/\Z(?!\n)/;
print $`;