#!/usr/bin/perl -w

use strict;

while (<>) {
  s/huntry/hungry/g;
  print;
}