#!/usr/bin/perl -wt

# Regular expressions looking for #.#### to ###.####
@f = qw /    r=1.0234   r=10.4520
           r=152.4234 r=2145.5124
          r=8756.246   r=512.243
            r=10.452     r=1.2
             r=1.2000  r=123.45678 /;
foreach $a (@f) {
 #match the query string
 if ($a =~ m/^r=([\d]{1,3}\.[\d]{4,4})/) {
   #success
   print "> $a $1\n";
 } else {
   #failure
   print "\tno match for $a\n";
 }
}