Select Code to Download

substr($string,rindex($string,$word),length($word)) = '';

my $ri = rindex($string,$word);
substr($string,$ri,length($word)) = '' if $ri > -1;