__EOQ__
$oldlevel = "";
open(READ,"items.txt");
while(defined($line=)){
chomp $line;
$line =~ s/( *)$//;
$line =~ /(\d+)\#(\d+)( *)(.*)$/;
$level = $1;
$itemno = $2;
$itemname = $4;
$what = $itemno;
if($level ne $oldlevel){
$oldlevel = $level;
print<<__EOQ__;
Level $level
__EOQ__
}
print "Item #$what $itemname
\n";
}
close READ;
print " |