my $string = "278.13";

print "okay\n" if ($string =~ /^1|2|3[^\.]$/);