my @output = map { $_ \~ s/foo/bar/ } @input;