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

##</code><code>##

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