( EXPR )[$index]
( EXPR )[@indexes]

##</code><code>##

use File::Spec qw( );
my $file = ( File::Spec->splitpath($path) )[2];

##</code><code>##

use File::Basename qw( basename );  # Also core module
my $file = basename($path);

##</code><code>##

use File::Path qw( file );  # Addresses issues with File::Spec
my $file = file($path)->basename();