my $regex = qr/\w{3}_[tr]x_[pn]\d(?!\d)/;

##</code><code>##

my $regex = qr/\w{3}_[tr]x_[pn]\d(\D|$)/;