I agree that File::Basename is the robust way to do what you need. But maybe the below code is something you might want to consider as well.
#!/usr/bin/perl
use strict;
while (<DATA>) {
print + (split( /\// ))[-1] if /\d+/;
}
__DATA__
/home/BORK/work/test-backfills/cp_test
/home/BORK/work/test-backfills/cp_test/82468
/home/BORK/work/test-backfills/cp_test
/home/BORK/work/test-backfills/cp_test/82480
/home/BORK/work/test-backfills/cp_test
/home/BORK/work/test-backfills/cp_test/82485
/home/BORK/work/test-backfills/cp_test
/home/BORK/work/test-backfills/cp_test/82490
/home/BORK/work/test-backfills/cp_test
/home/BORK/work/test-backfills/cp_test/82767
/home/BORK/work/test-backfills/cp_test
/home/BORK/work/test-backfills/cp_test/82802
/home/BORK/work/test-backfills/cp_test