如何将替换正则表达式作为命令行参数传递给perl脚本

I am trying to write a simple perl script to apply a given regex to a filename among other things, and I am having trouble passing a regex into the script as an argument. I am trying to write a simple perl script to ap