Wow. This is awesome! Thank you very much!!!!!

All I had to do was put a backslash before the $ sign, and it worked beautifully!

$re = qr[^0-9a-zA-Z.\\/_%\$'(){}&!~`@#^-+$];