while (<>) {
    chomp;
    my $result = ( /^([1-9]\d*)$/ and $1 < 256 ) ? "matched" : "did not match";
    $_ .= " $result\n";
    print;
}