% perl -we 'use strict; my $s = "foo"; print "$1\n" if ($s =~ /foo(o)?/);'
Use of uninitialized value in concatenation (.) or string at -e line 1.

この warning ってあまり有用なものではないように思うのですが、
これを抑制するのに良い方法が何かあれば教えて下さい。