my $encodings_test = 'ascii cp1252 cp437 cp850 iso-8859-1 utf-8-strict utf8'; my $decoder = guess_encoding($data, qw/$encodings_test/); print "decoder: $decoder\n";