#!/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";

IyEvdXNyL2xvY2FsL2Jpbi9wZXJsCm15ICRzdHJpbmcgPSAiQUJDREVGR0hJSktMTU5PUFFSU1RVVldYWVowMTIzNDU2Nzg5LiohICI7CiRzdHJpbmcgPX4gcy8oLikoLikoLikoLikoLikoLikoLikoLikvJDMkNyQ2JDEkOCQ1JDQkMi9nOyAKJHN0cmluZyA9fiAvKF4uezV9KShcdykoLns0fSkoLikoLiopKFtyUl0pKC4pKC4pKC4pKFtZXSkKKC4pKFxkKSguKShcRCkoLikoXFd7Mn0pKC4pKFxzKSguKShcdykoXFMpLzsKcHJpbnQgIkNhY2hlIENvb3JkaW5hdGVzIDogJDQkMTEkNyQxOCQ3JDkkMTkkMjEkMTEkMjEkMTgiOwpwcmludCAiJDIkNyQxMyQ4JDE4JDEyJDExJDE5JDE3JDE1JDEyXG4iOwpwcmludCAiQXR0ZW50aW9uIDogc2luY2UgMTYvMDgvMDkgYWRkIDAuMDA0IHRvIHRoZSBOb3J0aCEhXG4iOw==

IyEvdXNyL2xvY2FsL2Jpbi9wZXJsCm15ICRzdHJpbmcgPSAmcXVvdDtBQkNERUZHSElKS0xNTk9QUVJTVFVWV1hZWjAxMjM0NTY3ODkuKiEgJnF1b3Q7Owokc3RyaW5nID1+IHMvKC4pKC4pKC4pKC4pKC4pKC4pKC4pKC4pLyQzJDckNiQxJDgkNSQ0JDIvZzsgCiRzdHJpbmcgPX4gcy8oXi57NX0pKFx3KSguezR9KSguKSguKikoW3JSXSkoLikoLikoLikoW1ldKQooLikoXGQpKC4pKFxEKSguKShcV3syfSkoLikoXHMpKC4pKFx3KShcUykvOwpwcmludCAmcXVvdDtDYWNoZSBDb29yZGluYXRlcyA6ICQ0JDExJDckMTgkNyQ5JDE5JDIxJDExJDIxJDE4JnF1b3Q7OwpwcmludCAmcXVvdDskMiQ3JDEzJDgkMTgkMTIkMTEkMTkkMTckMTUkMTJcbiZxdW90OzsKcHJpbnQgJnF1b3Q7QXR0ZW50aW9uIDogc2luY2UgMTYvMDgvMDkgYWRkIDAuMDA0IHRvIHRoZSBOb3J0aCEhXG4mcXVvdDs7

#!/usr/local/bin/perl
my $string = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.*! ";
$string =~ s/(.)(.)(.)(.)(.)(.)(.)(.)/$3$7$6$1$8$5$4$2/g; 
$string =~ s/(^.{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";