A
\@figlet (\w*)

@affiche=qx/figlet $1/;
foreach (@affiche)
{
print "privmsg $chan :$_\n";
}