IyEvdXNyL2xvY2FsL2Jpbi9wZXJsCm15ICRzdHJpbmcgPSAmcXVvdDtBQkNERUZHSElKS0xNTk9QUVJTVFVWV1hZWjAxMjM0NTY3ODkuKiEgJnF1b3Q7Owokc3RyaW5nID1+IHMvKC4pKC4pKC4pKC4pKC4pKC4pKC4pKC4pLyQzJDckNiQxJDgkNSQ0JDIvZzsKJHN0cmluZyA9fiAvKF4uezV9KShcdykoLns0fSkoLikoLiopKFtyUl0pKC4pKC4pKC4pKFtZXSkKKC4pKFxkKSguKShcRCkoLikoXFd7Mn0pKC4pKFxzKSguKShcdykoXFMpLzsKcHJpbnQgJnF1b3Q7Q2FjaGUgQ29vcmRpbmF0ZXMgOiAkNCQxMSQ3JDE4JDckOSQxOSQyMSQxMSQyMSQxOCZxdW90OzsKcHJpbnQgJnF1b3Q7JDIkNyQxMyQ4JDE4JDEyJDExJDE5JDE3JDE1JDEyXG4mcXVvdDs7CnByaW50ICZxdW90O0F0dGVudGlvbiA6IHNpbmNlIDE2LzA4LzA5IGFkZCAwLjAwNCB0byB0aGUgTm9ydGghIVxuJnF1b3Q7Ow==

#!/usr/local/bin/perl
my $string = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.*! ";
$string =~ s/(.)(.)(.)(.)(.)(.)(.)(.)/$3$7$6$1$8$5$4$2/g;
$string =~ /(^.{5})(\w)(.{4})(.)(.*)([rR])(.)(.)(.)([Y])
(.)(\d)(.)(\D)(.)(\W{2})(.)(\s)(.)(\w)(\S)/;
print "Cache Coordinates : $4$11$7$18$7$9$19$21$11$21$18";
print "$2$7$13$8$18$12$11$19$17$15$12\n";
print "Attention : since 16/08/09 add 0.004 to the North!!\n";