Help for this page

Select Code to Download


  1. or download this
    my @parts = split /DOG/, $poem;
  2. or download this
    my ($before, $after) = split /DOG/, $poem, 2;