#!/usr/bin/perl -0p s/^(passwd: .*)$/$1 pgsql/m or die; s/^(group: .*)$/$1 pgsql/m or die;