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