my $element = "sample/fresh/fresh/0/pineapple";
$word = (split (/\//, $element))[-1];
print $word; #pineapple
[download]

my $element = "sample/fresh/fresh/0/pineapple";
$word = ( $element =~ /([^\/]+)(?:\/)?/g )[-1];
print $word; #pineapple
[download]