foreach $line (<STDIN>) {
  chomp $line;
  $line =~ s/-(?=[^-]+(-r[0-9]+)?$)/   ==>   /;
  print "$line\n";
}