in reply to Match and extract three characters from the middle of a string
m/\w{2}(\w{3})\w{3}/ $emc_device = $1 [download]
Neil Watson watson-wilson.ca