sub prefix_print {
    print map $_ ne "\n" ? "$prefix$_":$_, split /(\n)/, join '',@_;
}