#!/usr/bin/perl -w use strict; foreach (@ARGV) { while (<>) { s/\s+myOldPass/ Onl33In05h15notmyreallpass/g; s/\s+myDBUser/ my-secret-db-user/g; print; } }