>но может быть вы предложите свое правильное решение?
>более полное

Да, кому оно надо-то?! :)))

...
http:/openforum/vsluhforumID12/5394.html#9
Да, в моём варианте диапазон 256-299 "пролезает". А ещё октеты, начинающиеся с 0 и длиннее 1 символа, тож не "отсеиваются".

...perl
if ($string=~/^[01]?\d\d|2[0-4]\d|25[0-5])\.[01]?\d\d|2[0-4]\d|25[0-5])\.[01]?\d\d|2[0-4]\d|25[0-5])\.[01]?\d\d|2[0-4]\d|25[0-5])$/) { }
https://www.opennet.ru/docs/RUS/perl_help/perl_help-perl.html.gz

...awk
awk -F '[.]' 'function ok(n) { >>>и далее= https://www.opennet.ru/tips/info/1811.shtml