almost the same, but...

perl -e 'my @pathandfile = qw(c:\d1/d2/f1.txt c:\d1/d3/f2 c:\d1\d2\f4 
+c:\d1\d2\d3\f5); for (@pathandfile){print "PATH: $1  -  FILE: $2\n" i
+f /(.*)[\\|\/]([^\/|^\\]+)$/;}'
[download]