~/perltest_regex_in_array$ perl 100_regex_in_array.pl
ok 1 - Regex type ok: (?^:B)
not ok 2 - I have found: Berlin, Budapest, London, Paris, Praha
#   Failed test 'I have found: Berlin, Budapest, London, Paris, Praha'
#   at 100_regex_in_array.pl line 31.
#          got: 5
#     expected: 2
ok 3 - I have found: Berlin, Budapest
ok 4 - Regex type ok: (?^:B)
not ok 5 - I have found: Berlin, Budapest, London, Paris, Praha
#   Failed test 'I have found: Berlin, Budapest, London, Paris, Praha'
#   at 100_regex_in_array.pl line 47.
#          got: 5
#     expected: 2
1..5
# Looks like you failed 2 tests of 5.