my @cities = $test =~ m/^'([^'|]+)/gm;