Select Code to Download

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

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