Select Code to Download

PA
PBC

sub prefix_print {
...
  $outstr =~ s/(\n)(?=.)/$1.$prefix/egs;
  print $outstr;
}

# Note: This is buggy
...
        join('',@_) =~ m/(.*(?:\n|$))/g
  );
}

PyPP