Not elegant but ...

$regex = "";
foreach $day ( 0 .. 6 ) {
   $regex .= $months[$mon] . $mday + $day . "|";
}
chop( $regex );

...

return unless ( $string =~ /\Q$regex/oi );
...
[download]

-derby