my $value = "a b c d e f";

$value =~ s/\b(\S)\b/hoge/g;

print $value, "\n";