package ARGHelper;

use Filter::Simple;

FILTER_ONLY
    code      => sub {
    my $nl = qr/(\n?;\n?)|&&|\|\|/sm; 
    s/($nl)\s*?--\s*?($nl)/$1\$_--$2/smg;
    s/($nl)\s*?\+\+\s*?($nl)/$1\$_++$2/smg;
    print;
    my @ops = ('**=', '+=', '*=', '&=',
             '<<=', '&&=', '-=', '/=',
             '|=', '>>=', '||=', '.=',
             '%=', '^=', 'x=');
    foreach my $op (@ops) {
        my $qo = quotemeta $op;
        s/($nl)\s*?$qo/$1\$_$op/smg;               
    }    
}
;  
				
return 1;