or download this
s/^\W* # we may have some white space at start of line
my\W*? # all variable will use my
...
; # closing punctuation ends the statement the replace doesn't m
+atter for the question
/my \$renderer = new HRsmart::Lightning::Render ( template => $1
+,\n\t\tloops => $3,\n\t\treplace => $2,\n\t\tfinals => $4 );\n\$rende
+rer->customize_header\( \$company_id \);\nmy \$page = \$renderer->ren
+der;\n\$page =~ s\/~%.{0,20}%~\/\/g;\n/gx;