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
[download]