while (<DPSLOTFILE>) {
    my ($slot) = /$dpdrivloc:\s*(\d+)/;
# Do something with $slot
}