perlの配列操作について、@array =~ s/AAA//g;を行いたい

perlの配列から、AAAを削除したい場合、どのようにすればよいでしょうか？
例えば、
@array = ('aAAAa','aa','bAAAa');
とある場合、
@array = ('aa','aa','ba');
としたい場合です。

イメージ的には、
@array =~ s/AAA//g;
としたいのですが、うまく動作しません。
ご存知の方教えていただけないでしょうか？
宜しくお願い致します。

No.1 ベストアンサー 回答者： mtaka2 回答日時： 2008/06/04 06:21

@array = map { s/AAA//g; $_; } @array;

この回答へのお礼

mapってこうやって使うんですね。
とても助かります。
ありがとうございました！！

お礼日時：2008/06/04 10:19