$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";