in reply to Re: Extracting strings around comparision operator
in thread Extracting strings around comparision operator

speaking of which :)
if( my( $key, undef, $value ) = $line =~ /^(\w+)=(["'])(.*)\2$/) { ...

Replies are listed 'Best First'.
Re^3: Extracting strings around comparision operator
by Monk::Thomas (Friar) on Aug 20, 2015 at 08:09 UTC

    I would not write it that way. To me it feels like the matching is made something of an afterthought because it is 'hidden' in the second half of the line. So I wouldn't use that style. It's similar to

    open ......stuff....more stuff......... or die $! vs. open ......stuff....more stuff......... or die $!

    (Basically I like to make it hard to overlook something important when glancing at some piece of code. Even if that results in a slightly increased line count.)