my $text_to_parse = `symdev list -v`;

my ( $dev, $sym, $config, $SCSI3 ) = 
     ( $text_to_parse =~ m/Device Symmetrix Name\s+\:\s+([A-F0-9]+).*Symmetrix ID\s+\:\s+(\d+).*Device Capacity.*Cylinders\s+\:\s+(\d+).*SCSI-3 Persistent Reserve\s+\:\s+(\w+)/m );

print "$dev, $sym, $config, $SCSI3\n";