#!/usr/bin/perl -w

#######################################################
# lect04_subst_global
#
# playing with the s/// operator with /g modifier (s///g)
#
# modified by Sharon Tuttle from "Learning Perl",
#    by Schartz and Phoenix
#
# last modified: 9-14-04
#######################################################

while (<>)
{
    chomp;

    #   substitute the EVERY 'perl' in each line with 'PERL!'
    s/\bperl\b/PERL!/g;

    printf "NEW VERSION:<%s>\n", $_;
}


# end of lect04_subst_global