Select Code to Download

my $field = '*E2@x*PAP';
$field =~ /\*PAP\z/;

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

use Test::More 'tests' => 3;

...
my $nonl = "newline";
ok( $nl   =~ /line$/, '$ matches newline at end' );
ok( $nonl =~ /line$/, '$ matches end of string without newline' );