#!/usr/bin/env perl

# First created: 2012-05-08
# Last modified: 2012-08-26T01:37:48 UTC-04:00

use strict;
my $pow = 2;
my $test_v = $ARGV[0] || $];
my @qiu = split(q/[._]/ => $test_v);
@qiu[1 .. @qiu] = map {sprintf(q[%u],$_/10**$pow++)}
                    map {unpack "A4 A4",$_ * 10**3 } @qiu[1 .. $#qiu];
my $tuple_perlversion = join q[.], grep{length($_)} @qiu;

print "$tuple_perlversion\n";