while (<>) {
  chomp;
  ... derive $new from $_ ...
  print $_, ' --> ', $new, "\n"; # use ' --> ' as the delimiter
}