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