open(IN,'file.txt') or die "$!";
my @files = <IN>;

foreach $page (@files) {
  $page =~ s/\s+$//g;
  print "parsing [$page]\n";
  # code
  
}