#! perl -l

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

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