Cevap: Bir kod arıyorum..
yukarda yazdıgınız ilk mesajda kanalda yaziyor ondan kanal icin yaptim özel icin tek yapilmasi gereken # yerine ? koymakti ancak istenen o degildi orasi ayri
on *:input:?:if ($left($1,1) !== /) { say $replacecs($1-,l,L) | halt } |