Select Code to Download

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

$str =~ s/eatMe$//;

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

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