Just change or add to your regex:

use File::Find;

find(sub {
    print "$File::Find::name\n" if /^start/;
}, "test");
[download]