$haha = 'I have black tyres.';
$haha =~ s/tyre/tire/g;
print($haha, "\n");
# outputs: I have black tires.