open (FIL, "+<stuff.txt") or die "$!";
 
foreach $line (<FIL>){
 
if($line =~ m/David/){
$line =~ s/David/Josh/;
}
print $line;
}