foreach $page (@files) {
     chomp $page;
     $page =~ s/\r//g;
     # ...
}