#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my $test = qq[
cities = new Array (

'Alabama',
'Albuquerque',
'Bakersfield',
'Boise',
'Central|Central Illinois',
'Chicago',
'DesMoines',
'EastTennessee',
'ElPaso',
'Fargo',
'Fresno',
'GulfCoast',
'WashBalt|Washington-Baltimore',
];


my @cities = $test =~ m/'(.*?)|.?'/g;

print Dumper \@cities;

##</code><code>##

Alabama
Albuquerque
Bakersfield
Boise
Central
Chicago
DesMoines
EastTennessee
ElPaso
Fargo
Fresno
GulfCoast
WashBalt