$inq = '23D78000';
( $junk, $emc_device, $junk1 ) = $inq =~ m/^([0-9]{2})([A-Z][0-9]{2})([0-9]+)$/;