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