fork download
copy 
  1. #!/usr/bin/perl -w
  2.  
  3. use strict;
  4. use warnings;
  5.  
  6. while (<DATA>) {
  7.     chomp;
  8.  
  9.     # A - A sequence of digits
  10.     # B - A period and a sequence of digits
  11.     # C - Repeat 'B'.
  12.  
  13.     if (/\b(\d+)((?:\.\d+)+)\b/) {
  14. #           ^^^     ^^^^^
  15. #            A        B
  16. #                   ^^^^^^^
  17. #                      C
  18.  
  19.         print "[$1]  [$2]\n";
  20.     }
  21. }
  22.  
  23. __END__
  24. 1.23
  25. 123.456
  26. 1.2.3
  27. 1.22.333.444
  28.  
Success #stdin #stdout 0s 3696KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1]  [.23]
[123]  [.456]
[1]  [.2.3]
[1]  [.22.333.444]
https://ideone.com/iwuerw
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!