Help for this page

Select Code to Download

Select or download this

$test="123.0456.0789.0-WHOOPS";
$test =~ s/(\.0.*)(.0)/$1/;
print "$test\n";
__DATA__
123.0456.0789-WHOOPS

Select or download this
```
$test =~ s/(\.0.*?)\.0/$1/s;
```