perl -le '$_="me [ and ] you ^ and - him";  $c="][^-";  s/[$c]/xxx/g;  print'