Help for this page
$text =$data{"Text"}; #Name of Textbox in form $text =~ s/</</g; $text =~ s/>/>/g;
if(-f "$bookfile"){ undef $/; open(FILE, "+<$bookfile") ... else{binmode(FILE);} $bookfile_contents = <FILE>; $/ = "tr/\n /";