#!/usr/bin/perl

$_ = do {local $/; <DATA>};

s/(Class.+\n=+\n)//;
$header = $1;

@devices = m/(^\w.+\n(?:\s+.+\n)*)/mg;

__DATA__
Class Foo
=========
graphics   0  1          graph3      CLAIMED     INTERFACE    Graphics
disk       0  2/0/1.0.0  sdisk       CLAIMED     DEVICE       HP      C2247M1
                        /dev/dsk/c0t0d0   /dev/rdsk/c0t0d0
ctl        0  2/0/1.7.0  sctl        CLAIMED     DEVICE       Initiator
                        /dev/rscsi/c0t7d0