perl -le '$regex = qr:[<>@#$%^&*()_+=|\{\}\[\]\/\\]:;
print "$%";
print "$regex";'