#! perl -slw
use strict;

$/ = "\nS";

m[
    Device \s Symmetrix \s Name \s+ : \s+ ( [^\n]+ ) .+?
    Device \s Serial \s ID \s+      : \s+ ( \d+ )    .+?
    KiloBytes \s+                   : \s+ ( \d+ )    .+?
    SCSI-3 \s Persistent \s Reserve : \s+ ( \S+ )    .+?
]smx and print "name:$1\nID:$2\ncap:$3\nRes:$4"
    while <DATA>;


__DATA__
******** Two copies of the supplied example ************

##</code><code>##

c:\test>junk75
name:0062                (VCM)
ID:6000062081
cap:5760
Res:Disabled
name:0062                (VCM)
ID:6000062081
cap:5760
Res:Disabled