local $/ = "\n  hdisk";
my ($disk) = $_ =~ /\s+(hdisk\w+)/;