my $sentence = 'Sam goes to school to play football.';

substr($sentence, $_, 0) = '**' for 35, 27, 18, 12;

print $sentence, "\n";