Help for this page
Select Code to Download
Select
or
download this
my @field = split(/\n/, $t->get("1.0", "end"));