iTerm2 color scheme parser

parser.pl

#!/usr/bin/env perl
use 5.036;

local $/ = undef;
$_ = <>;

while (
    m{
        (?(DEFINE)
            (?<float> \d+\.\d+)
        )

        <key>(?:
            Ansi \s+ (?<c>\d+)
                |
            (?<n>[^>]+)
        ) \s+ Color</key> \s*
        <dict> \s*
            <key>Blue \s+ Component</key> \s*
            <real>(?<b>(?&float))</real> \s*
            <key>Color \s+ Space</key> \s*
            <string>sRGB</string> \s*
            <key>Green \s+ Component</key> \s*
            <real>(?<g>(?&float))</real> \s*
            <key>Red \s+ Component</key> \s*
            <real>(?<r>(?&float))</real> \s*
        </dict>
    }giosx
) {
    my $color = $+{n}
        ? lc($+{n} =~ tr{ }{_}r)
        : 'color' . $+{c};
    printf "%s #%02x%02x%02x\n",
        $color,
        255 * $+{r},
        255 * $+{g},
        255 * $+{b};
}

solarized.txt

color0 #073642
color1 #dc322f
color10 #586e75
color11 #657b83
color12 #839496
color13 #6c71c4
color14 #93a1a1
color15 #fdf6e3
color2 #859900
color3 #b58900
color4 #268bd2
color5 #d33682
color6 #2aa198
color7 #eee8d5
color8 #002b36
color9 #cb4b16
background #002b36
bold #93a1a1
cursor #839496
cursor_text #073642
foreground #839496
selected_text #93a1a1
selection #073642