#!/usr/bin/perl -wl
use strict;

sub joinprint { print join " ", map q/"$_"/, @_ }

$_ = " blah blah";

joinprint split ' ';
joinprint split /\s+/;

__END__
"blah" "blah"
"" "blah" "blah"