use File::Basename;
my $new_file_name = basename($full_path_name, 'jpg|JPG');
       # or
$new_file_name = basename($full_path_name, '\..*');
       # but this will return "James" from
       # "James.John.jpg"