Or just drop the chop altogether and use

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

instead of

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