RWY_protection_1;80
-0.701399;44.840355
-0.698625;44.838375
-0.728149;44.817631
-0.730969;44.819683
-0.701399;44.840355

RWY_protection_2;80
-0.696316;44.826075
-0.697434;44.823624
-0.731108;44.830796
-0.730151;44.833011
-0.696316;44.826075


Restricted_area_protection_localizer_1;80
-0.734401;44.816223
-0.732972;44.815214
-0.734348;44.814279
-0.735763;44.815288
-0.734401;44.816223

##</code><code>##

while(my $line = <$FILE>){
	$line =~ s/\s+$//;
	if ($line =~ /(^\w+)/){
	...
    }
}