kein Problem :)

my ($datestr) = $filename =~ /\.(\d+)$/;

Mit dieser Anweisung wird gesucht, ob in der Variablen $filename vor dem Ende des Strings ($) ein Punkt (\.) gefolgt von 1 bis beliebig vielen Ziffern (\d+) vorkommen. Falls ja, werden die Ziffern zusammen gespeichert (durch die Klammerung (...)).

Im Arraykontext wird eine Liste der gespeicherten Dinge zurückgegeben, im skalaren Kontext deren Anzahl. Durch die Klammer um $datestr wird in diesem das erste Element der zurückgegebenen Liste (die in diesem Fall aus einem oder keinen Elementen besteht) abgelegt. $datestr enthält dann entweder die Ziffern (den Timestamp) oder den Wert undef.

Statt

my ($datestr) = $filename =~ /\.(\d+)$/;


könnte man auch ausführlicher

$filename =~ /\.(\d+)$/;
my $datestr = $1;

schreiben.

HTH\n\n

<!--EDIT|Crian|1077017053-->