A perl script to reduce OSM files to nodes and highways.