#!/usr/bin/perl
# Por konverti kio2io al io2kio
while (<>) {
    if (! m@^\#@) {
	m!\@(.*?)\@(.*?)\@!;
	my $un = $1;
	my $du = $2;
	if ($un =~ m@(.*?)\|@ ) { $un = $1; };
	s!\@(.*?)\@(.*?)\@!\@$du\@$un\@!;
    }
    print;
}