my $s = join('', @_); $s =~ s/^/$prefix/mg; print $s;