while (<DATA>) {
  /\/([^\/]+)\d$/;
  print $1."bot\n";
}

__DATA__
## /loc1/loc2/loc3/848xxxxxB01_d_1
## /loc1/loc2/loc3/loc4/848xxxxxB01_d_1
## /loc1/848xxxxxB01_d_1