#!/usr/bin/perl
undef $/;
$osm = <>;
$osm =~ s/\<(node|way|relation)[^>]+action='delete'.+?\<\/\1\>\s+//gs;
$osm =~ s/\s+action='\w+'//g;
print $osm;
