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