you are free to disable specific warnings locally:

perl -we 'my $a; { no warnings qw/uninitialized/; $a =~ s/x/y/;  }'

Sometimes this is the clearest solution!