Select Code to Download

    my $xpm = qq{
        :/* XPM */
...
        $xpm .= qq{\n\t\t:"$line",};
    }
    $xpm =~ s/(^\s+:)|((?<=\n)\s+:)|(\s+$)//g;

    $xpm =~ s/^\s+://mg;
    $xpm =~ s/\s+$//;

    $xpm =~ s/(?:^\s+:)|(?:(?<=\n)\s+:)|(?:\s+$)//g;