#!/usr/local/bin/perl

while (<>) {
        while (/(\d+)\.(\d+)([eE][+-]?\d+)?/g) {
                print ("integer part $1, decimal part $2");
                if ($3 ne "") {
                        print (", exponent $3");
                }
                print ("\n");
        }
}
