use Regex::PreSuf;
my $re = presuf(1950..2050);