in reply to Case-sensitive substitution with case-insensitive matches
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 [download]