map : リスト置換処理

@list = qw/text1 text2 text3/;
@new_list = map { $_=~ s/text/word/; $_ } @list;