$0=substr($0,1,1)