http://www.perlmonks.org?node_id=287146

LanceDeeply has asked for the wisdom of the Perl Monks concerning the following question:

how can I substitute $token with $date in $string?
my $token = '[DATE:%Y-%m-%d]'; my $date = '2003-08-27'; my $string = '/dropArea/dropClient/file_[DATE:%Y-%m-%d].txt';