- m{ color(\d+) \h* : \h* ( \#(\S+) | rgb:(\S+) ) }x or next;
- my ($idx, $val) = ($1, uc $+);
- $idx < 16 or next;
+ m{
+ (?: (foreground | background) | color(\d+) ) \h* : \h*
+ (?: \#(\S+) | rgb:(\S+) )
+ }x or next;
+ my ($name, $idx, $val) = ($1, $2, uc $+);
+ $name or $idx < 16 or next;