{ local $/ = 'eatMe'; chomp($str); }

##</code><code>##

$str =~ s/eatMe$//;

##</code><code>##

$str = substr($str, 0, rindex($str, 'eatMe'));

##</code><code>##

$pat = 'eatMe'; substr($str, rindex($str, $pat), length($pat), '');