my($tag, %links) = @_;


##</code><code>##

 all that sub needs to be is print "@_\n"


##</code><code>##

($_='jjjuuusssttt annootthheer
     pppeeerrrlll haaaccckkeer')=~y/a-z//s;print;