#!/usr/bin/perl -w
use strict;
use warnings;
foreach ('nur_datei_ohne_pfad.pdf','\\windows_pfad\\datei.pdf','linux_pfad/datei.pdf','') {
	print "\n\nBehandle $_ \n";
	print "rindex: " . (substr $_,rindex($_,'\\')+1) . "\n";
	(my $regex = $_) =~ s/^.*[\\\/]//g; 
	print "regex : $regex\n";
}