Help for this page
# change this my ($qnum,$code,$ctext,$ntext,$stext); # to my ($qnum,$code,$ctext,$ntext,$stext)=('','','','','');
$stext = (split(/\s/,$_,2))[1] || '';