>>420
$_ = "fred\n";
print 'case $ >', /($)/, "<\n";
print 'case \\n >', /(\n)/, "<\n";