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";

##</code><code>##

my @encodings_test = qw(ascii cp1252 cp437 cp850 iso-8859-1 utf-8-strict utf8);
my $decoder = guess_encoding($data, @encodings_test);

##</code><code>##

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