$j = "Jim Plank";

$j =~ s/ .*/i Hendrix/;
print "$j\n";

$j =~ s/i/I/g;
print "$j\n";

$j =~ s/\b\w*\b/Dikembe/;
print "$j\n";

$j =~ s/(\b\w*\b)/Jimi "\1"/;
print "$j\n";