use IO::Handle;
$fh->input_record_separator( "<!>" );