Сжатие Perl Транспонировать код

Question

Я всегда пишу такой код:

my $var = $result[0];
my $var_changed = $var;
$var_changed =~ s/somepattern/somechange/g; 

Что может быть лучше для этого? И под «лучше» я имею в виду: меньше печатать, оставаясь понятным.

Спасибо.

Answer 1

Это будет делать то же самое, что и вторая и третья строки;

(my $var_changed = $var) =~ s/somepattern/somechange/g;

Насколько разборчивым является ваш звонок.

Answer 2

Или даже

(my $var_changed = my $var = $result[0]) =~ s/somepattern/somechange/g;

Но это начинает вызывать вопрос, зачем вам сначала нужен $ var.