note
liverpole
What you probably want is <c>File::Basename</c>. It's in the core already (ie. no need to install it).
<p>Try:
<c>
use strict;
use warnings;
use File::Basename;
my $base = basename("/home/BORK/work/test-backfills/cp_test/82802");
# Note that $base is now '82802'
</c>
<div class="pmsig"><div class="pmsig-465654">
<hr />
<font size="1">
s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/
</font>
</div></div>
827245
827245