in reply to Idiom for setting variables to empty string if capture is undefined?

an idiom for avoiding this annoyance without turning the warnings off?

If you know the warnings are a possibility for particular statements, why not disable the warnings for those particular statements?:

my ($a, $b, $c, $d) = 'abcd' =~ /(w)(x)(y)(z)/;
{
    no warnings 'uninitialized';
    print "$a $b $c $d";
}

[download]

Or:

printf "%s %s %s %s\n", $a//'', $b//'', $c//'', $d//'';

[download]

Or, ensure they get some value:

my ($a, $b, $c, $d) = ( 'abcd' =~ /(w)(x)(y)(z)/, '','','','' );

[download]
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)
In the absence of evidence, opinion is indistinguishable from prejudice.

In Section Seekers of Perl Wisdom