my $token = quotemeta ( '[DATE:%Y-%m-%d]' );