難しく考えず、一時変数を使うといいよ。

$re = join '|', @date;
$check =~ /^$re$/;