# File containing Q&A
my $file = 'Q.txt';

open(FH,$file) or die $!;
while (my $line = <FH>) {
	if ($line =~m/^\d+\./) {
		print "Question : $line";
	}else{
		print $line;
	}
}
close(FH);

##</code><code>##

$line =~s/\*$//;