local $/;
my $str = <$FI>;