Help for this page
Select Code to Download
Select
or
download this
my ($toss, @list) = split /\s*[A-Za-z]+\s*\=\s*/;