#!/usr/bin/perl while () { s|^// *||; print; } print "\n";