Select Code to Download

use strict;
use warnings;
...

print "Matched\n"       if $str =~ /^\d{4,4}[A-Z0-9]$/;
print "Multi-matched\n" if $str =~ /^\d{4,4}[A-Z0-9]$/m;

Multi-matched