SPUG:Rookie Question

[Yitzchak Scott-Thoennes]

On Mon, 16 Jun 2003 15:40:07 -0700, chuck.orr at attws.com wrote:
>Hello All,
>=20
>I realize this is a rookie question, but I need a quick fix...or a
>pointer to the location where I can find a quick fix.  I have a line
>that looks like this:
>
>$uniq - { map m|(^\w+)(\s)|,grep /^[A-Z]{4}MTA|^[A-Z]{4}MKT/, at facode };

I assume $uniq is an object with subtraction overloaded to do something
sensible when subtracting a hash ref :)
Or maybe that was supposed to be =, not -.

How about this (untested):
$uniq = { map /(^[A-Z]{4}M(?:TA|KT)\w*)(\s)/, @facode };