#Perl @PerlWChallenge 364 Task 1: Decrypt String
#noxp
```
perl -E '
@m{1..9,map "$_\#",10..26}=("a".."z");for(@ARGV){$i=$_;s/(\d\d\#)/$m{$1}/eg;s/(\d)/$m{$1}/eg;
say "$i -> $_"}
' "10#11#12" "1326#" "25#24#123" "20#5" "1910#26#"
```