#!/usr/bin/perl -w
my $p = 'Terrence and Philip are sweet';
$p =~ s/e/1/g;
print "$p";