#! /usr/bin/perl

while (<>) {
	if (/^[-#]+/) {
		s/-/--/g;
		s/#/##/g;
		print;
	}
	print;
}