3884|MC1|GW|Graphworks/Mirandas Needle|kit
|Mice Skating|EACH|$1.50|$0.75|MC1.JPG

##</code><code>##

open (PROD,"<products.txt");
open (OUT,">out.txt");
@array = <PROD>;
foreach $line (@array){
unless ($line =~/JPG?/){ chomp; }
print OUT "$line"; }