my $var="!@#$%^&(),.Now is the time}{[]+-";
print "\n$var";
my $var_with_slash=quotemeta($var);
print"\n$var_with_slash";

##</code><code>##

!@#0^&(),.Now is the time}{[]+-
\!\@\#0\^\&\(\)\,\.Now\ is\ the\ time\}\{\[\]\+\-