#!/usr/bin/perl

use strict;
use warnings;

my $line = 'sample/fresh/fresh/0/pineapple';

my @words = split/\//, $line;

print $words[-1],$/;