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