Shell Programming and Scripting

I am facing a very challenging task here but can't finish it.I request all of you to help me please.


I have one file which contain some data i need to format it.
data file contain data like

54321|item-68|owner|yes||||$
00-10|invoice|3221|||#
00-11|invoice|3221|||#
00-12|invoice|3221|||#
book1|032|US|yes|||@

54300|item-68|owner|yes||||$
00-211|invoice|3221|||#
00-113|invoice|3221|||#
00-124|invoice|3221|||#
00-135|invoice|3221|||#
bookdoon|032|US|yes|||@
bookdooner|032|US|yes|||@
......................
......................
.....................

Required format:
54321|item-68|owner|yes||||00-10|invoice|3221|||book1|032|US|yes|||
54321|item-68|owner|yes||||00-11|invoice|3221|||
54321|item-68|owner|yes||||00-12|invoice|3221|||
54300|item-68|owner|yes||||00-1|invoice|3221|||bookdoon|032|US|yes|||
54300|item-68|owner|yes||||0-1|invoice|3221|||book3|032|US|yes|||



lines delimited by # may be more than 4 or less and same for line delimited by @.but line prceded by $ will always be one.
to explain more clearly lets take line preceded by $ is A
by # B
by @ D

we have file like
A$
B#
C#
D#
E@


and i need output in a file like
A B E
A C
A D

Hope this helps

$ cat tmp1.txt
54321|item-68|owner|yes||||$
00-10|invoice|3221|||#
00-11|invoice|3221|||#
00-12|invoice|3221|||#
book1|032|US|yes|||@

54300|item-68|owner|yes||||$
00-211|invoice|3221|||#
00-113|invoice|3221|||#
00-124|invoice|3221|||#
00-135|invoice|3221|||#
bookdoon|032|US|yes|||@
bookdooner|032|US|yes|||@

$ cat mah.pl
#!/usr/bin/perl

use strict;

open (FH,"<tmp1.txt");

my $line;
my @ar;
my $i;
my $k;
my $fl;

while($line = <FH>)
{
if ( $line =~ /\$$/ ) {

while ( $k > 0 && $k < $i) {
print $fl,$ar[$k++],"\n";
}
chop $line; chop $line;
$fl=$line;
$#ar=-1;
$i=0;
$k=0;
}

if ( $line =~ /\#$/ ) {
chop $line; chop $line;
$ar[$i++]=$line;
}

if ( $line =~ /\@$/ ) {
chop $line; chop $line;
print $fl,$ar[$k++],$line,"\n";
}
}

while ( $k > 0 && $k < $i) {
print $fl,$ar[$k++],$line,"\n";
}

close FH;

$ mah.pl
54321|item-68|owner|yes||||00-10|invoice|3221|||book1|032|US|yes|||
54321|item-68|owner|yes||||00-11|invoice|3221|||
54321|item-68|owner|yes||||00-12|invoice|3221|||
54300|item-68|owner|yes||||00-211|invoice|3221|||bookdoon|032|US|yes|||
54300|item-68|owner|yes||||00-113|invoice|3221|||bookdooner|032|US|yes|||
54300|item-68|owner|yes||||00-124|invoice|3221|||
54300|item-68|owner|yes||||00-135|invoice|3221|||