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

##</code><code>##

<c>foreach $page (@files) {
     $page =~ s/[\r\n]//g;
     # ...
}