$/ = undef; open "FIN", "; close FIN; print "|$_|\n" for @fin;