@a=("237861178511787117847", "41178101784017861178111780117856", "2378801784117810178087823", "967876785678547823784117810178701789978797827"); reverse(@a);foreach(@a){($a[$a]=(reverse($a[$a]))) ;for(split(/(87)/,$a[$a])){unless($_==(87)){ (($print.=chr($_)))};}$a=$a+1;};reverse;$a= @a[$a]+$a;print$print;
In reply to Diving for perl output by ProgrammingAce
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |