http://www.perlmonks.org?node_id=966301


in reply to validate a form field with regexp?

if( $input =~ m/^(SR\d{7})$/ ) {
    print "User entered $1: OK.\n";
} else {
    print "Invalid input.\n";
}

[download]

Have a look at perlretut.


Dave

In Section Seekers of Perl Wisdom