Help for this page
Select Code to Download
Select
or
download this
... my @words = split /\W+/; ...
Select
or
download this
foreach $w ( ( ... ) [0..4] ) { ... }