my $d = 'Shakespeare is the food';
foreach ( $d ) {
    s/food/bard/;
}