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