Есть ли способ заменить несколько строк в строке? Например, у меня есть строкаhello world what a lovely day и я хочу заменитьwhat а такжеlovely с чем-то еще ..

$sentence = "hello world what a lovely day";
@list = ("what", "lovely"); # strings to replace
@replist = ("its", "bad"); # strings to replace with
($val = $sentence) =~ "tr/@list/@replist/d";
print "$val\n"; # should print "hello world its a bad day"..

Есть идеи, почему это не работает?

Благодарю.