>perl -wMstrict -MO=Deparse,-p -le
"my ($node, $disk, %vxdgs) = (0, 0);
 my $vxdg;
 (exists $vxdgs{$node}{$disk}) ? $vxdg = $vxdgs{$node}{$disk}
                               : $vxdg = '';
"
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict 'refs';
(my($node, $disk, %vxdgs) = (0, 0));
my($vxdg);
((exists($vxdgs{$node}{$disk}) ? ($vxdg = $vxdgs{$node}{$disk}) : $vxdg) = '');
-e syntax OK