#!/usr/bin/perl -w
use strict; my @n = qw(6 4 2 4);$,="\n";
my @o; for (my $i=0;$i < @n;$i++){  push
(@o, chr(ord(substr($^X,$i,1))-  $n[$i])
);}$_=join(".",@o);s/(.*)/$1./;print $_,
"";