die "No parameters given\n" unless @ARGV;
$ARGV [0] =~ s/(..)/$1$1/g;
print $ARGV [0], "\n";