seek FH, -1, 2;
read FH, $char, 1;

if ($char eq "#") {
...