Select Code to Download

tuple        :     (number dot)(2) tuple_rest(s?)  { \@item }
tuple_rest    :     number dot             { \@item }
...
number    : /\d+/        { \@item }
digit    : /[0-9]/    { \@item }
dot    : '.'        { \@item }

#! /usr/local/bin/perl -ws
...

__DATA__
1.2.3.4.5