#! perl -slw
use strict;

$/ = ''; ## Paragraph mode 

while( <DATA> ) {
    m[^(\S+)] or die "Bad input format";
    my $volName = $1;
    $_ = <DATA>;
    m[Serial\sNumber\.+([^\n]+)] or die "Bad input format";
    printf "%8s  %s\n", $volName, $1;
}
__DATA__
...