open(TL,"$path_to_lang/$thislang/get_form_submission.txt"); while(){push(@LaNg,$_)} &exec_lang; $param1=~s`https*://[^/]+`$path_to_domain`; $txt=$param1; $txt=~s`csv$`txt`; open(T,"$txt"); $line=; if($line=~m`csv"`){$d=qq~","~;$x=1} if($line=~m`pipe$`){$d=qq~|~} if($line=~m`tab`){$d=qq~\t~} $line=~s`^"``; @line=split(/$d/,$line); pop(@line); $line=join($d,@line); $line =~ s`$d``g; $TBL=qq~$line~; open(P,"$param1"); while(

){ chomp(); if($x){ $_=~m`^"(.+)"$`;$_=$1} $_ =~ s`$d``g; $TBL.=qq~$_~; } print "Content-type: text/html\n\n"; print qq~$ini_text_print<!-- =Form -->$TBL
~;