#!/usr/bin/perl -w
use strict;
use warnings;
while (<DATA>) {
# A - A sequence of digits
# B - A period and a sequence of digits
# C - Repeat 'B'.
if (/\b(\d+)((?:\.\d+)+)\b/) {
# ^^^ ^^^^^
# A B
# ^^^^^^^
# C
}
}
__END__
1.23
123.456
1.2.3
1.22.333.444
IyEvdXNyL2Jpbi9wZXJsIC13Cgp1c2Ugc3RyaWN0Owp1c2Ugd2FybmluZ3M7Cgp3aGlsZSAoPERBVEE+KSB7CiAgICBjaG9tcDsKCiAgICAjIEEgLSBBIHNlcXVlbmNlIG9mIGRpZ2l0cwogICAgIyBCIC0gQSBwZXJpb2QgYW5kIGEgc2VxdWVuY2Ugb2YgZGlnaXRzCiAgICAjIEMgLSBSZXBlYXQgJ0InLgoKICAgIGlmICgvXGIoXGQrKSgoPzpcLlxkKykrKVxiLykgewojICAgICAgICAgICBeXl4gICAgIF5eXl5eCiMgICAgICAgICAgICBBICAgICAgICBCCiMgICAgICAgICAgICAgICAgICAgXl5eXl5eXgojICAgICAgICAgICAgICAgICAgICAgIEMKCiAgICAgICAgcHJpbnQgIlskMV0gIFskMl1cbiI7CiAgICB9Cn0KCl9fRU5EX18KMS4yMwoxMjMuNDU2CjEuMi4zCjEuMjIuMzMzLjQ0NAo=