#!/usr/bin/perl use strict; use warnings; $^I = '~'; while (<>) { s/\s+myOldPass/ Onl33In05h15notmyreallpass/g; s/\s+myDBUser/ my-secret-db-user/g; print; }