Shell Programming and Scripting

$str="OWN - NLM STAT- MEDLINE DA - 19990311 DCOM- 19990311 LR - 20061115 AB - The perlfaq comprises several documents that answer the most commonly asked questions about Perl and Perl programming. 
It's divided by topic into nine major sections outlined in this document.
Practical extraction reporting language ";

OWN   NLM 
STAT  MEDLINE
DA      19990311
DCOM  19990311
LR       20061115
AB       The perlfaq comprises several documents that answer the most commonly asked questions about Perl and Perl programming. 
It's divided by topic into nine major sections outlined in this document

$ > cat b.pl

$str = $ARGV[0] ;
$str =~ s/([\w\d]*\s*\-\s*[\w\d]*)\s*?/$1|/g ;

my @T = split (/\|/,$str) ;

$" = "\n" ;
print "@T\n" ;

$ >

$ > perl b.pl
OWN - NLM
 STAT- MEDLINE
 DA - 19990311
 DCOM- 19990311
 LR - 20061115
 AB - The
 perlfaq comprises several documents that answer the most commonly asked questions about Perl and Perl programming.
It's divided by topic into nine major sections outlined in this document.
Practical extraction reporting language

$i = 0 ; 
$j = 1 ; 
%HASH = () ; 

foreach my $k ( @T ) 
{
    my $key = $k[$i] ;
    my $val  = $k[$j] ;

    $HASH{$key} = $val ; 
    $i += 2 ;
    $j += 2 ;
}