ファイルから1バイトずつデータを読み込んで
0x13でEXORをとって書き出すプログラムを書きたいのですが
Perlではどうしたらいいのでしょうか？
↓こんな感じでうまくいかない
for($i = 0; $i < 10; $i++){
　　　　　sysread(DATA, $data, 1);
　　　　　push @string, $data;
}
for($i = 0; $i < 10; $i++){
　　　　　$ch = $string[$i] ^ 0x13;
　　　　　print $ch;
}
__DATA__
abcdefghijklmn