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