use File::Basename qw(basename);
....
my $last_part_in_string=basename($string);