PA
PBC

##</code><code>##


sub prefix_print {
  # Put $prefix in front
  my $outstr=join('',$prefix,@_);
  # If something follows a \n, insert $prefix
  $outstr =~ s/(\n)(?=.)/$1.$prefix/egs;
  print $outstr;
}

##</code><code>##


# Note: This is buggy
sub prefix_print {
  # Turn arguments into a list of lines, and prepend
  # each with $prefix
  print(
    map { "$prefix$_" } 
        join('',@_) =~ m/(.*(?:\n|$))/g
  );
}

##</code><code>##


PyPP