Help for this page
@^T = qw, 3( 2 9 6); 21_PENGUINS, and print map {(lc((split//=>\"\"=>")[$^T>1])..__)[$_]}@^ +T