@files = map { pack 'UW*', unpack 'C*', $_; } @files;