Leerzeichen von `pwd` entfernen ?

[Ruen]

Hi nochmal,

so noch ein problem was ich gerne lösen würde aber nicht schaffe...

my $what = "txt";
my $akt_verz = pwd;
my $Verzeichnis = "./";
my $URIVerzeichnis = "$Verzeichnis";
opendir(DIR, $Verzeichnis) || die "$Verzeichnis: $!";
foreach my $dat (@Dateien) {
 if($dat =~ /.+.$what*/) {
   $c ++;
   next unless -f $dat;
   my $fileSize = -s _;
   my $groesse = $fileSize/1000000;
   print "blablabla\n";
  }
 if (-d $dat) {
   foreach my $dat (@Dateien) {
    if (-d $dat) {
     chdir($akt_verz.'/'.$dat);
     opendir(DIR, $akt_verz.'/'.$dat);
     print "$akt_verz.'/'.$dat";
     print "\n";
     my @Dateien = readdir(DIR);
       foreach my $dat (@Dateien) {
................

Bei dem chdir den ich aufrufe chdir($akt_verz.'/'.$dat);
Setzt er mir ein leerzeichen nach dem $akt_verz und fügt dann /$dat hinzu.
Dass sieht dann so aus:
/home/user/Sonstiges /ordner2

Das funktioniert dann aber leider nicht mit der 2. opendir angabe da das leerzeichen da ist.
Wie kriege ich dieses nun weg ?

Danke!
Ruen