my @txtquearr = split('~', $txtque);
###############################################################################
#my $count = 0;
foreach $txtque (@txtquearr){
#$count = $dbh->do('INSERT INTO ques (username,userque,userquedetail,userquecatgory,userresponsecount,quegood,quebad,queid,userquedate,quevideo,queaudio,quepic,email)values(?,?,?,?,?,?,?,?,?,?,?,?,?)',undef,$usernamenow,$txtque,$txtdetail,$cat,$userresponsecount,$quegood,$quebad,$aaqueid,$userquedate,$txtvideolink,$txtaudiolink,$txtpicturelink,$txtemail);
#print "Ques Inserted inoto Data\n";
print $txtque;
}