use strict; use warnings; #### exit if $fi eq '';