#!/usr/bin/perl


foreach (@ARGV) { $string .= $_ . " "; } $string =~ s/\ *$//g;

@chars  = split(//, $string);
$string = "ADCC SEND \"";
foreach $c (@chars)
{
    $string .= "+ $c ";
}
$string =~ s/\ *$//;

print "$string\"\n";

# print "" . chr(1) . "DCC SEND \"" . "+l "x200 . "\"\n";