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

##</code><code>##

binmode (STDOUT);