Help for this page
/^(?:1950|1951|1952|1953|...|2049|2050)$/;
use Regex::PreSuf; my $re = presuf(1950..2050);