$baka =~ s/(\x81\x40)+/\s/g;
$baka =~ s/\t+/\s/g;
@aho = split(/\s/,$baka);