in reply to Split according to \

You're using PHP syntax. Perl uses something more like: 
@file = split (/\\/,$file);

[download]

In Section Seekers of Perl Wisdom