Re: Need a regex..

Something like this, maybe?

use strict;

while (my $data = <DATA>) {
  chomp $data;
  
  if ($data =~ /^\d?\d?\d\.\d\d?\d?$/) {
    print "GOOD\n";
  } else {
    print "BAD\n";
  }
  
}

__DATA__
12.12
123.123
0.1
1234.0
1234
[download]

In Section Seekers of Perl Wisdom