#!/usr/bin/perl
use warnings;
use strict;

my $pfad = "C:\Test\Dateiname.abc";
my @a = split("\", $pfad);
foreach my $i (@a) {
    print "$i\n";
}