in reply to How to modify \d in RegEx

perl -MRegex::PreSuf -le"print presuf( 51 .. 249 )"

[download]
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+)/

[download]

In Section Seekers of Perl Wisdom