use warnings;
open(CITY, "city.cpp.txt") || die("sorry, file couldn't be opened. $!");
while ($content=<CITY>) {
	if ($content!~m#//|/\*#) {
		print "$content";
	} elsif ($content=~m#/\*#) {
		while (<CITY>!~m#\*/#) {
		}
	}
}