Select Code to Download

3 4 4 4 4 19 18 22 6 13 10 19 2 8 6 18 20 16 1 10 6 19 3 2 19 20 3 18 
+18 1   0

    print( $ar[ord $_] =~ s/.\K$/ /r );

3 4 4 4 4 19 18 22 6 13 10 19 2 8 6 18 20 16 1 10 6 19 3 2 19 20 3 18 
+18 1

    print( ( $ar[ord $_] // '' ) =~ s/.\K$/ /r );