#!/usr/bin/perl

#!/usr/bin/perl

open(SRC, "weather.fact");
@list=<SRC>;
$numbertotal=$#list;
close(TYP);
print "$numbertotal";

open(TARGET, ">city.inf");
$number=1;
#print "@list[1000]";
while ($number < $numbertotal)
{
($city, $crap4)=split("=>", @list[$number]);


print TARGET "$city\n";
$number=$number+1;


}
close(TARGET);
