or download this
my $range51to249 = qr!(?:1(?:0[0123456789]|1[0123456789]|2[0123456789]
+|3[0123456789]|4[0123456789]|5[0123456789]|6[0123456789]|7[0123456789
+]|8[0123456789]|9[0123456789])|2(?:0[0123456789]|1[0123456789]|2[0123
+456789]|3[0123456789]|4[0123456789])|5[123456789]|6[0123456789]|7[012
+3456789]|8[0123456789]|9[0123456789])!;
/^(\d+\.\d+\t$range51to249\.\d+)/