Dateiname einlesen und verwenden

[_roro]

hmm...

sowas wie =~ /^.+$./

besser...

my $s = 'var.accuracy.out';
$s =~ /^(\w+)./;
print "$1\n"; # var

Vorausgesetzt, im String vor dem ersten Punkt stehen Zeichen, die \w entsprechen (Buchstaben, Ziffern, Underscore).

--roro