fork download
copy 
  1. #!/usr/local/bin/perl
  2. my $string = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.*! ";
  3. $string =~ s/(.)(.)(.)(.)(.)(.)(.)(.)/$3$7$6$1$8$5$4$2/g;
  4. $string =~ /(^.{5})(\w)(.{4})(.)(.*)([rR])(.)(.)(.)([Y])
  5. (.)(\d)(.)(\D)(.)(\W{2})(.)(\s)(.)(\w)(\S)/;
  6. print "Cache Coordinates : $4$11$7$18$7$9$19$21$11$21$18";
  7. print "$2$7$13$8$18$12$11$19$17$15$12\n";
  8. print "Attention : since 16/08/09 add 0.004 to the North!!\n";
Success #stdin #stdout 0.01s 5292KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Cache Coordinates : 9!!7! 
Attention : since 16/08/09 add 0.004 to the North!!
https://ideone.com/J1emNg
language:
Perl (perl 5.28.1)
created:
13 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!