open (FH, "filtered.txt");
open (IN, "information");


while (<IN>) {
chomp $_;
/images\/(\d+)/;
$sample = $1;
print "$sample\n";

                   while (<FH>){
                                 /(\d+)/;
                                 print "loop\n";
                                  }                                
                                }
              }