while (<>)

##</code><code>##

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