#!/usr/bin/perl

# censor_passwd

use warnings;
use strict;

my $password = "hide_me";

$| = 1;

while (<STDIN>) {
   s/\Q$password/removed/ig;
   print;
}