use strict; use warnings; use Test::More qw(no_plan); ok( "1A" =~ /[\w\d]{2,}/ ); ok( "A1" =~ /[\w\d]{2,}/ ); ok( "56429K01B" =~ /[\w\d]{2,}/ ); ok( "1132086" =~ /[\w\d]{2,}/ );