while (<DPSLOTFILE>) {
	my ($slot) = /$dpdrivloc:\s*(\d+)/;
	print "$slot";
}