#!/usr/local/bin/perl
$_ = "foo\n";
/\Z/;
print $`;
print "n" if $';