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