4 == grep {$_<256} /^(\d+)[.](\d+)[.](\d+)[.](\d+)$/

##</code><code>##

4 == grep {$_<256&&!/^0\d/} /^(\d+)[.](\d+)[.](\d+)[.](\d+)$/