#!/usr/bin/perl -w
use strict;
my $text = << 'EOF';
{{Uniwersalny szablon nawigacyjny|SZABLON=Wielokąty
|TYTUŁ ='''[[Wielokąt]]y'''
|OBRAZEK =
|KOLOR_TYTUŁ_TŁO = #eeeeee
|KOLOR_TŁO = #ffffff
|ZAWARTOŚĆ=
'''[[trójkąt]]y'''
[[trójkąt prostokątny]] • [[trójkąt równoboczny]] • [[trójkąt równoramienny]]
'''[[czworokąt]]y'''
[[trapez]] • [[trapez prostokątny]] • [[trapez równoramienny]] • [[deltoid]] • [[równoległobok]] • [[romb]] • [[prostokąt]] • [[kwadrat]]
'''pozostałe'''
[[pięciokąt]] • [[sześciokąt]] • [[ośmiokąt]] • [[wielokąt gwiaździsty]]
'''[[wielokąt foremny|wielokąty foremne]]'''
[[trójkąt równoboczny]] • [[kwadrat (geometria)|kwadrat]] • [[pięciokąt foremny]] • [[sześciokąt foremny]] • [[siedmiokąt foremny]] • [[ośmiokąt foremny]] • [[dziewięciokąt foremny]] • [[dziesięciokąt foremny]]
}}
EOF
my $i = 0;
$text =~ s/'''(.+?)'''
\s+(.+?)\s+/ $i++; "|grupa$i = $1\n|lista$i = $2\n"/ge;
print $text;