As this looks like fixed-length formatting, I wouldn't go with a regex at all, but with...

my ($desc,$code) = unpack("A60 A*",$line);#or however long 1st field i
+s.
$description_hash{$code}=$desc;
[download]

Cheers, Ben. Update: as would hardburn :)