# change this
my ($qnum,$code,$ctext,$ntext,$stext);

# to 
my ($qnum,$code,$ctext,$ntext,$stext)=('','','','','');

##</code><code>##

$stext = (split(/\s/,$_,2))[1] || '';