#!/usr/bin/perl

use strict;
use warnings;
use Tie::File;

my $file = '/pfad/zu/datei.txt';

tie my @lines,'Tie::File',$file or die $!;
$_ =~ s/\s//g for(@lines);
untie @lines;