local $_;
local $^I='';
local @ARGV=('datei1.txt', 'datei2.txt');
while (<>) {
   s/\s+//g; # oder irgend etwas anderes lustiges
   print;
}