A
\@figlet (.*)

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