read $FI, my $str, -s $FI;