my $dotted_decimal = qr{
  (?<! \d) \d+ (?: \s* [.] \s* \d+){2,3} (?! \d)
  }xms;