$string =~ s/\Q$token\E/$date/;