perl -nle '/tilda/ && s/\[// && s/\]// && print qq{insert into mytable values(SEQ_MY_ID.nextval, '$_', '01',sysdate,'','')}' report.conf #### % perl -nle "/tilda/ && s/\[// && s/\]// && print qq{insert into mytable values(SEQ_MY_ID.nextval, '$_', '01',sysdate,'','')}" report.conf _: Undefined variable.