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

##</code><code>##

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

##</code><code>##

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

my $field = '*E2@x*PAP';
ok( $field =~ /\*PAP\z/, '\\z matches at end of string' );

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