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