Select Code to Download

sub tt {
  my( $cookie, $param ) = @_;
...
print tt( undef, 1 );
print tt( undef, undef );

(4,3):  3
(4,333):        4
...
(undef,1):      1
(undef,undef):  5

$/  =  q#(\w)#  ;  sub  sig { print scalar reverse  join  ' ',  @_  } 
+ sig
map { s$\$/\$/$\$2\$1$g && $_ } split( ' ', ",erckha rlPe erthnoa stJu
+" );