#!/usr/bin/perl

use warnings;
use strict;

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