#!/usr/bin/perl $q = 1; while (<>){ chomp; if (/^\* (.*)$/){ print "
$1
Question $q: $1\n"; $q++; } elsif (/^A: (.*)$/){ print "$1\n"; } elsif (/^TODO=(.*),$/){ print "\n"; } else { print "$_\n"; } }