Help for this page

Select Code to Download


  1. or download this
    my @string = grep length, split '\/', 'Call/me/Ishmael/';
for my $i( 0 .. $#string ){
...
Call
Call/me
Call/me/Ishmael
  2. or download this
    local $fungus = '';
local $_ = 'Call/me/Ishmael/';
...
Call
Call/me
Call/me/Ishmael