use correct string returned by file for Perl scripts