ちょっと100の質問用の整形にスクリプトを書いてみる

$data = <<'EOFDATA';
ここにテキスト形式の100の質問
EOFDATA
$chrN = "\n";
$cutFirstLine = '#';
$cutFinalLine = '';
$insertFirst = ':';
$insertFinal = ':';

foreach(split(/$chrN/o,$data)){
	chomp;
	s/^\s*$cutFirstLine\s*//oi if ($cutFirstLine);
	s/\s*$cutFinalLine\s*^//oi if ($cutFinalLine);
	print join('',$insertFirst,$_,$insertFinal,$chrN);
}