#!/usr/bin/perl
use strict;
use warnings;

# pl_test/752902.pl


for (<DATA>) {
    chomp;
    my $data = $_;

	if ( $data =~ m/^(hdisk.)/ ) {
		print "$1 \t";
	}

	if ( $data =~ m/\s+(Serial Number)\.+([\d,A-Z]+)/) {   # alt char class:  [0-9,A-Z] and possibly /i
   		print "$1\t$2\n";
	}
}

__DATA__
hdisk0   P1/Z1-Aa     16 Bit LVD SCSI Disk Drive (18200 MB)

        Manufacturer................IBM
        Machine Type and Model......ST318305LC
        FRU Number..................09P4437
        Serial Number...............0009E05B
        Part Number.................09P4436

hdisk1  P1/Z1-Ab     16 Bit LVD SCSI Disk Drive (18200 MB)

        Manufacturer................IBM
        Machine Type and Model......ST318305LC
        FRU Number..................09P4437
        Serial Number...............0004A0D2
        Part Number.................09P4436