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