sub prefix_print {
    # unfortunately, the local copy of $_ is necessary to be able to prefix_print
    # constants
    print map { my $l = $_; $l =~ s/^/$prefix/gm; $l } @_
};

prefix_print qq(foo\nbar),2,3,4