#!/usr/local/bin/perl -pi.bak

s/\.300\.300/.300/;
