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

while (<IN>) {
  chomp $_;
  /images\/(\d+)/;
  $sample = $1;
  while (<FH>){
    /(\d+)/;
    print "loop\n";
  }
  seek( FH, 0, 0 );
}
[download]