Help for this page
Select Code to Download
Select
or
download this
$line =~ s/[(),;]//g; my @split1 = split " ", $line;