Select Code to Download

$orig='aaa([\+\-]{1})bbb';
$res = '([\\+\\-]{';
...
$str=$orig;
$str =~ s!$qres!!;
print "Replace against variable quoted => $qres <=: $str\n";

Replace against variable quoted => ([\+\-]{ <=: aaa1})bbb
Replace against variable quoted => \Q$res\E <=: aaa([\+\-]{1})bbb

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)
+-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"
+- $1"}&&`rm $1`;
print$\;}