You've come to the right place! Try using the Search bar on this page or the Super Search tool. If you read the documentation associated with the modules at CPAN there is source code there. See what you can come up with on your own and post your code here when you get stuck.
Please also see: How (Not) To Ask A Question for what is expected of you when asking for help.
Good Luck.
s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s
|-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,,
$|=1,select$,,$,,$,,1e-1;print;redo}
| [reply] |