print "$_: ", m[^\w+(?:\.\w+)?$] ? "matched\n" : "failed\n"
    for qw[ one one.two one.two.three four.five.six.seven one. one-two ];