Mine

#!/usr/bin/env perl

use strict;
use warnings;

my $inp = shift;

if ($inp =~ /^\d{1,3}(\.\d{1,3}){3}$/) {
  my @a = $inp =~ /(\d+)/g;
  for my $n (@a) {
    exit 1 unless ($n < 256);
  }
  exit 0;
}
exit 1;