fork download
copy 
  1. $value = "Sv5aUwukdnU0oBsXlSaGe5yTNir3d5Ync9tIyRhcy13bGsybw==";
  2. if ($value =~ /^\s*\w(\S)5(\w{1})\S\w(\S{1})(\w)(\w{1})(\S{1})\S\S(\S)\S{3}(\w)S(\w)G(\S{1})\w(\w)\S{2}(\w)(\S{1})\S{7}(\w).+$/)
  3. {
  4.     $hello = "$5$13$12$6$4 $11$7$3$13";
  5.     $world = "$7$1$2$8$14$12$6$10";
  6.     printf("%s %s\n", $hello, $world);
  7. }
Success #stdin #stdout 0s 18248KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
drink your ovaltine
https://ideone.com/VyLZW7
language:
Perl (perl 5.28.1)
created:
7 years 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!