匹配正则表达式并在单行代码中分配结果

我想能够对变量进行正则表达式匹配，并将结果分配给变量本身。什么是最好的方法呢？

我想在一行代码中基本上结合第2行和第3行：

$variable = "some string";
$variable =~ /(find something).*/;
$variable = $1;

有没有更短/更简单的方法来做到这一点？我缺少什么？

为什么你想要它更短？是真的很重要吗？

$variable = $1 if $variable =~ /(find something).*/;

如果你担心变量名或重复这样做，将该东西包装在子程序中并忘记它：

some_sub( $variable,qr/pattern/ );
 sub some_sub { $_[0] = $1 if eval { $_[0] =~ m/$_[1]/ }; $1 };

然而，你实现它，子程序的要点是使它可重复使用，所以你给一组特定的行一个简短的名称，在他们的位置。