#! perl -slw
use strict;

while( <DATA> ) {
    chomp;
    printf "Before '%s' becomes ", $_;
    s[
        ( \d+ )             ## Grab any digits before a decimal point
        (?:
            \.              ## If there is a decimal point
            ( \d{0,2} )     ## Try grab two digits after it
            ( \d* )         ## And any more into another capture
        )?                  ## All conditionally
        %                   ## And finally...
    ]{
        local $^W;          ## I know some of the captures will be empty.

        ## Pad (trailing zeros) the digits being moved to ensure exactly 2
        my $n = substr( $2 . '00', 0, 2 );

        ## Reassemble the number from 
        ##      Any digits previously before the decimal point
        ##      The two digits being moved
        ##      A decimal point and the remaining digits if there are any.
        $1 . $n . ( length($3) ? ".$3" : '' );
    }xe;
    print "'$_'";
}

__DATA__