in reply to Re: Comparing lower to upper case
in thread Comparing lower to upper case

Won't \w match any letter, number, or underscore?
if ($str =~ m/\d[A-Z]\d+/) {
  print "Ok!\n";
} else {
  print "Invalid format! Must be: [digit][letter][digit][digit] ... \n
+";
}

[download]

Joshua

Replies are listed 'Best First'.
A reply falls below the community's threshold of quality. You may see it by logging in.

In Section Seekers of Perl Wisdom