( $_ = 'abcba' ) =~ s/b//g;        # aca
( $_ = 'abcba' ) =~ s/bc//g;       # aba
( $_ = 'abcba' ) =~ s/b(?=c)//g;   # acba