#! perl -lw
for(<city/city*>){
    die unless($n)=/city-(.*)\.html/;
    print$n
}