in reply to Regexp: Only tr second occurance

$_ = '123.0456.0789.0';

/\.0/g && /\.0/g && substr $_, $-[0], $+[0] - $-[0], "";

[download]

Makeshifts last the longest.

In Section Seekers of Perl Wisdom