use File::Basename;

my $file = basename($filestring);
print $file,$/;