my $nl   = "newline\n";
my $nonl = "newline";
$nl   =~ /line$/;
$nonl =~ /line$/;