perlで変数に代入せず置換する方法

Question

出てきた値を置換して別の変数に入れたいです。
自分の知ってる限りだと、一度変数に収めてからs演算子で置換する方法しかわからないです。

@list=(qw/str1X str2/);
$str=$list[0];    #この行が煩わしい
$str=~s/X//;      #2行目と3行目を一つにまとめたい
print $str;

上記でいうと、@listの値を変更せず、かつ直接$strにXを置換した値を直接入れる方法は無いのでしょうか。
無い事は無いと思うのですが、見つけられませんでした。

Answer 1

別解として、こちらのほうが少し可読性が高いかもしれません（好みによります）。

my @list=(qw/str1X str2/);
my $str = ($list[0] =~ s/X//r);
print $str;

Comments

[KojiDoi]

どのバージョンのperlでしょうか。私の手元のperl 5.10.1では、rをつけるとシンタックスエラーとなります。

[emasaka]

あ、rを使えるのはPerl 5.14（2011年）以降でしたね。

[KojiDoi]

ありがとうございます。別環境のperlにて動作を確認できました。これは便利ですね。

Answer 2

すみません、「perl 置換後　代入」で検索したら速攻出てきました。

my @list=(qw/str1X str2/);
(my $str=$list[0])=~s/X//;
print $str;

しかし可読性が低い気がする・・・