#!/usr/bin/perl use strict; use warnings; my $input = ; my $output = $input; $output =~ s/eat/8/; print $output;