#! /usr/bin/env perl

use locale;
use strict;

##################################################
# Skrypt transformuje słownik użytkownika        #
# do słownika rozumianego przez gue.             #
# Format wejściowy:                              #
# pref*kon~waga;opis                             #
# Format wyjściowy:                              #
# nok_pref~waga;opis                             #
#                                                #
# Prefiks może być pusty, końcówka też           #
##################################################

while (<>) {
    /^(\w*)\*(\w*)(~.*)$/;
    my $pref = $1;
    my $kon = $2;
    my $desc = $3;

    print reverse(split("",$kon));

    if ($pref != "") {
	print "_$pref";
    }
    print "$desc\n";


}
