PERL SPLIT ON PERIOD