Select Code to Download

#!perl
use strict;
...
        "I have found: " . join(", ", @found_cities));

done_testing();

~/perltest_regex_in_array$ perl 100_regex_in_array.pl
ok 1 - Regex type ok: (?^:B)
...
#     expected: 2
1..5
# Looks like you failed 2 tests of 5.