[問題] 正規表示法

[jeffreychen ()]

請教如何將下面問題用perl自動化
一個aaa的檔案裡面有很多字串如下
$tset tset1 > 1000000000011L1011000110H10L0H0H00H0HHH000001000000100010000000000000000000000LL00000010000010000001000000001000000000100000L00101001000000000000000001000H0H000000110000001L1000M001HL0XXH000LXXXXXXXLLLLXXXXXHLLHLLHHHXLLLLLLLLLLHL1LLLLLLLLLHL1LHLLLLLLLLLLLLLLLLLLLLLHLLLL1LHLLLLLLLLL1LHLLLLLLLLLML1L; /*1000599, 20011980.000nS*/
.
.
.
.
.
.
.
.
$tset tset1 > 0000000000000H1011000110H10L0H0H00H0HHH000001000000000010000000000000000000000LL00000010000100000100000000100000000010000000H00101001000000000000000001000H0H000000110000000L1000M001HL0XXH000LXXXXXXXLLLHXXXXXHLHLLLLHHXLLLLLLLLLLHL1LLLLLLLLLHL1LHLLLLLLLLLLLLLLLLLLLLLHLLLL1LHLLLLLLLLL1LHLLLLLLLLLML1L; /*1000598, 20011960.000nS*/
我想要些行所有第十個數字0都換成1
請問如何寫ㄋ?

ps: 對perl不太熟請大大指導, 萬分感恩

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 60.248.184.238
推 scwg: perl -pe 'substr($_, 10, 1) = 1'
→ scwg:如果你習慣從 1 開始數請把 10 改成 9
→ scwg:如果第十個位子不是零的時候不換成 1: 'substr... =~ s/0/1/'