s/("SAd"Boy)/
  my($s,$b)=($1,"'bad'girl");
  substr($s,-1) x= length$b;
  (lc$s^$s)&(lc$b^uc$b)^lc$b
/ieg