Untitled

#!/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'''<br>
[[trójkąt prostokątny]] &bull; [[trójkąt równoboczny]] &bull; [[trójkąt równoramienny]]

'''[[czworokąt]]y'''<br>
[[trapez]] &bull; [[trapez prostokątny]] &bull; [[trapez równoramienny]] &bull; [[deltoid]] &bull; [[równoległobok]] &bull; [[romb]] &bull; [[prostokąt]] &bull; [[kwadrat]]

'''pozostałe'''<br>
[[pięciokąt]] &bull; [[sześciokąt]] &bull; [[ośmiokąt]] &bull; [[wielokąt gwiaździsty]]

'''[[wielokąt foremny|wielokąty foremne]]'''<br>
[[trójkąt równoboczny]] &bull; [[kwadrat (geometria)|kwadrat]] &bull; [[pięciokąt foremny]] &bull; [[sześciokąt foremny]] &bull; [[siedmiokąt foremny]] &bull; [[ośmiokąt foremny]] &bull; [[dziewięciokąt foremny]] &bull; [[dziesięciokąt foremny]]
}}
EOF

my $i = 0;
$text =~ s/'''(.+?)'''<br ?\/?>\s+(.+?)\s+/ $i++; "|grupa$i = $1\n|lista$i = $2\n"/ge;
print $text;