sub my_epe {
  my ($s,$h) = @_;
  my $op = '(' . join('|', keys %$h) . ')';
  my $con = qr/Con (\d+(?:\.\d+)?)/;
  1 while $s=~s/$op \s+ $con \s+ $con/'Con '.$h->{$1}($2,$3)/ex;
  $s;
}