Help for this page

Select Code to Download


  1. or download this
    use strict;
    my $str = "Element1 Element2 Element3 Element4 Element5 Element6";
    my $nth = @{[$str =~ m/\w+/g]}[3];
    print "$nth\n";
    
  2. or download this
    Element4