fork download
copy 
  1. ($chars, @dict) = (join('', 'a'..'z'), qw(4 8 ( [) 3 |= 6 # 1 _/ |< |_ /\\/\\ /\\/ 0 |o 9 |2 5 7 |_| \\/ \\/\\/ >< `/ %));
  2. /[$chars]/ ? print $dict[index($chars, $_)] : print for split '', lc $ARGV[0];
Success #stdin #stdout 0s 4948KB
comments (?)
stdin
copy 
ae1234
stdout
copy 
Standard output is empty
https://ideone.com/TN6ujk
language:
Perl (perl 5.28.1)
created:
4 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!