my $str = '200908';
my $ra = Regexp::Assemble->new;
$ra->insert(qw((^2005..2008)(01..12)));

if ($ra->match($str)){
 print "ja\n";
}else{
 print "nein\n";
}