I was going to write another Kung foo poem but there are only so many combinations of chop and slice that can be used credibly. ;-)

my $foo="got funky!";@foo=$foo=~/(.)/g;
print @foo[(7,5,6,0,3,4,5,3,2,1,3,8,1,5,9,10)],"\n";
[download]

Brother Frankus.