#!/usr/bin/perl -w
while (my $line=<>) {
    chomp $line;
    $line=~s/^[^\-]+//;
    $_=$line;
    if (/-fkr-/) {
	s/-fkr-/-xipa-/;
	print "\"$_\" \"$line\"\n";
    }
}