[perl] как сделать лучше?

$var =~ s/^.*regexp1(regexp2).*$/\1/;

Чёрт. Мне казалось, что я раньше пробовал такой синтаксис и у меня ничего не получилось. Но что делать если нужно присвоить это значение не оригинальной, а новой строке?

Если тебя смущает что $1 от разных конструкций могут запутаться, то
оформляй блоки:

{
  $var =~ m/regexp1(regexp2)/;
  $var = $1;
}

цитата:

       $<digits>
               Contains the subpattern from the corresponding set of capturing
               parentheses from the last pattern match, not counting patterns
               matched in nested blocks that have been exited already.

$var = ($string =~ /regexp1(regeexp2)/)[0];

($var) = ($string =~ /regexp1(regeexp2)/);

$string =~ /regexp1(regeexp2)(?{$var = $^N})/

:)

фубля, простите