#!/usr/bin/perl -np s/^%%%\ ?//g; s/^%%%%.*\n//g;