$chain=substr($line,length($line)-1,1);