#!/usr/bin/perl

$in_way=0;
$vcode=0;
$part='';

while (<>) {
    if (!$in_way && /<node /) {
	$in_way = 1;
    } elsif ($in_way && /VKOOD['"] v=['"](.*)['"]/) {
	$vcode = $1;
    } elsif ($in_way && /<\/way>/) {
	$in_way = 0;
    }
    $part.=$_;
    if (!$in_way && $vcode) {
	open(F, ">>out_$vcode.osm") or die "Bla";
	print F $part;
	close F;
	$part='';
    }
}