$eng =~ s/you/ya/ig; $eng =~ s/aren't you/int'cha/ig;