#
# isoliert Dateinamen von Pfadnamen durch gieriges Verhalten
#

my $pfad = "c:\\aaa\\bbb\\ccc\\ddd\\datei.ext";
my ( $aa, $bb, $cc );

print "$pfad\n";

$_ = $pfad ;
( $aa, $bb ) = /(.*)\\(.*)/;  # Listenkontext, statt \1... und dann Zuweisung
print "aa: $aa\nbb: $bb\n";