see perlre and the section on standard quantifiers.

#! perl -l

for my $pw (("12345678901","123456789012","1234567890123","whoa")) { 
    print "$pw is ",&validpw ($pw)?undef:"not ", "valid";
}

sub validpw {
    return $_[0]=~/^\d{11,12}$/;
}
[download]