$ perl 1199749.pl
1..8
Malformed UTF-8 character (unexpected non-continuation byte 0xe3, immediately after start byte 0xe7) at 1199749.pl line 12.
Malformed UTF-8 character (unexpected non-continuation byte 0x6f, immediately after start byte 0xe3) at 1199749.pl line 12.
looking for directory (dir_without_codes): documentao
not ok 1 - With codes (1)
#   Failed test 'With codes (1)'
#   at 1199749.pl line 17.
not ok 2 - Without codes (2)
#   Failed test 'Without codes (2)'
#   at 1199749.pl line 18.
not ok 3 - Without codes (3)
#   Failed test 'Without codes (3)'
#   at 1199749.pl line 19.
not ok 4 - Without codes (4)
#   Failed test 'Without codes (4)'
#   at 1199749.pl line 24.
not ok 5 - Glob matches with codes (5)
#   Failed test 'Glob matches with codes (5)'
#   at 1199749.pl line 28.
#          got: 'documentação'
#     expected: 'documentação'
not ok 6 - Glob matches without codes (6)
#   Failed test 'Glob matches without codes (6)'
#   at 1199749.pl line 29.
#          got: 'documentação'
#     expected: 'documentao'
not ok 7 - Glob matches without codes (7)
#   Failed test 'Glob matches without codes (7)'
#   at 1199749.pl line 30.
#          got: 'documentação'
#     expected: 'documentao'
not ok 8 - Without codes (8)
#   Failed test 'Without codes (8)'
#   at 1199749.pl line 32.
# Looks like you failed 8 tests of 8.