__EOQ__
open(READ,"ingred.txt");
while(defined($line=)){
chomp $line;
$line =~ /^(\d+)\#(.*)\#(.*)$/;
$itemno = $1;
$itemname = $2;
$stuff = $3;
if($stuff =~ /^(.*)(\ \ +)(.*?)$/){
$rarity = $1;
$cost = $3;
}
if($oldrarity ne $rarity){
$oldrarity = $rarity;
print "$rarity
\n";
}
print "\@$itemno $itemname - $cost GP
\n";
}
close READ;
print " |