s#foo#bar#g, s#bar#baz#g for @line;
$line[0] =~ s#baz#quux#g;
$line[1] =~ s#qoox#frobble#g;
s#firble#flar#g, s#fooz#bish#g for @line;