critic markup perl: accept markup in stdin

acceptcm.pl

while (<STDIN>) {
   my $currLine = $_;
   # accept deletions:                                                          
   $currLine =~ s#{--[^\-]+--}##g;
   # accept additions:                                                          
   $currLine =~ s#{\+\+([^+]*)\+\+}#$1#g;
   # accept changes:                                                            
   $currLine =~ s#{~~[^~]+~>([^~]+)~~}#$1#;
   print $currLine;
}