my $year = (split m|[/ ]|, $date)[2];