@args = ('a5', 'qwert');
unpack @args;                       # not okay; equivalent to unpack 2;
unpack $args[0], @args[1..$#args];  # okay, format arg followed by data args


##</code><code>##

unpack qw/a5 qwert/;

##</code><code>##

unpack split ' ', 'a5 qwert';

##</code><code>##

unpack 'a5', 'qwert';

##</code><code>##

($#=unpack u, q&>>7,@2D%U='ET96YR;VAY96P@(%!R>6-E2')A:RP*&)
=~s:y(.)(.)(.)(.)(.)(.):\3\5\1\6\2\4:g;           print 42;