#!/usr/bin/perl

# use re 'debugcolor';
# use open ':utf8';
# use utf8;

# binmode( STDIN,  ':utf8' );
# binmode( STDOUT, ':utf8' );
# binmode( STDERR, ':utf8' );

while ($radek = <STDIN>) {
    $radek =~ s/(<MMt[^>]*>)P7-.([34]---)/$1P7--$2/g;
    $radek =~ s/(<MMt[^>]*>)P6-.([23467])/$1P6--$2/g;
    $radek =~ s/(<MMt[^>]*>Vs......)[FPRX]/$1-/g;
    $radek =~ s/(<MMt[^>]*>Vc.)X(...)3/$1-$2-/g;
    if ($radek =~ /<MMl[^>]*>co</) {
	$radek =~ s/(<MMt[^>]*>P4).../$1---/g;
    }
    $radek =~ s/(>([\-\+])?[0-9][^<]*<MMl[^>]*>[^<]+<MMt[^>]*>)C[nlr]............./$1C=-------------/;
    $radek =~ s/(<MMt[^>]*>)C}/$1C=/g;
    $radek =~ s/(<MMt[^>]*>P[1S]...)[XZMIN]([SP]3)/$1-$2/g;
    $radek =~ s/(<MMt[^>]*>P[1S]...)F(P3)/$1-$2/g;
    $radek =~ s/(<MMt[^>]*>)VB-X---X......./$1XX-------------/g;
    $radek =~ s/(<MMt[^>]*>..)............8/$1------------8/g; # odkomentováno 27.7.2016: zkratky bez dalšího určení
    print STDOUT "$radek";
}