fork download
copy 
  1. #!/usr/local/bin/perl
  2. my $string = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.*!r";  # přidáno "r"
  3. $string =~ s/(.)(.)(.)(.)(.)(.)(.)(.)/$3$7$6$1$8$5$4$2/g;
  4. $string =~ /(^.{5})(\w)(.{4})(.)(.*)([rR])(.)(.)(.)([Y])(.)(\d)(.)(\D)(.)(\W{2})(.)(\s)(.)(\w)(\S)/;
  5. print "Cache Coordinates : $4$11$7$18$7$9$19$21$11$21$18";
  6. print "$2$7$13$8$18$12$11$19$17$15$12\n";
Success #stdin #stdout 0.01s 5256KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Cache Coordinates : 9!!7!r
https://ideone.com/D5KjWr
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!