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