Help for this page

Select Code to Download

Select or download this
```
    while (<>)
```

Select or download this

  my $sample = 'sample/fresh/fresh/0/pineapple';
  my $word = $sample;
  $word =~ s/.*\///;