#!/usr/bin/perl

my $str = "123.0456.0789.0-WHOOPS";
my $sub = ".0";

my $p = index($str,$sub,index($str,$sub)+1);
print "str before = $str\n";
substr($str,$p,length($sub)) = "" unless $p < 0;
print "str  after = $str\n";