(Perl) Portable filename comparison