in reply to delete data from file

You could try something like Tie::File and set the record separator to \n\t.

In Section Seekers of Perl Wisdom