obfuscated japhy Here's the goal: make a function that takes any number of equal-length strings, and returns an array of strings, where each string is the concatenation of the Nth character in each string. <p> Sample input: <tt>qw( jeff john mary )</tt><br> Sample output: <tt>qw( jjm eoa fhr fny )</tt> <p> Here are my attempts: <code> # 51 chars sub s2a{@_=@_;reverse+map{join"",map+chop,@_}1..length$_[0]} # 51 chars sub s2a{@_=@_;map{join"",map+s/(.)//s&&$1,@_}1..length$_[0]} # 48 chars sub s2a{map{join"",map+s/(.)//s&&$1,@_=@_}1..length$_[0]} # 47 chars sub s2a{map{join"",map{s/(.)//s;$1}@_=@_}1..length$_[0]} # 45 chars sub s2a{map{join"",map{s/.//s;$&}@_=@_}1..length$_[0]} </code> <br><br> <tt><font color="#0000ff">japhy</font></tt> -- <a href="/index.pl?node=japhy&lastnode_id=1072">Perl and Regex Hacker</a>