#!/usr/local/bin/perl -w
use strict;

my @documents;
while (<DATA>) {
    # uncomment following line for the regex way
    # if (/^([\S]*.DOC)\t(.*)/) {push @documents, [$1, $2]}

    # uncomment these to use the split method
    # chomp;
    # next unless (my ($doc, $title)=split /\t/, $_, 2);
    # push @documents, [$doc, $title];

}

print "I found the following docs\n\n";
foreach (@documents) {
    print "Doc: $_->[0] \t Title: $_->[1]\n";
}

__DATA__
RS0029.DOC      INTER UNIT HARNESS REQUIREMENT SPECIFICATION

RS0036.DOC      INSTRUMENT ELECTRONICS UNIT
RS0037.DOC      MECHANISM CONTROL ELECTRONICS
RS0041.DOC      IOU DESCAN MECHANISM

RS0042.DOC      IOU GENERIC MECHANISMS