Help for this page

Select Code to Download

Select or download this

while ($str =~ /,/g) { $p = $-[0], last if !--$nth }