#!/usr/bin/perl
use strict;

open (FH, "<files.list") || die "Can't find files.list: $!\n";
my @files = <FH>;
close (FH);

while (my $file = shift(@files)) {
    chomp ($file);
    open (FILE, "$file") || warn "Warning: can't open $file, skipping...\n";
    while (<FILE>) {
        chomp;
        if (/\b($info)\s*\./) { print $_}
        ...
    }
}