pattern grep using Perl in .TSV file

Hi All,

I have a .TSV extension file having ~1 Gig data and I need to grep a pattern in that file using perl. I am not able to read the file using perl any suggestions on this/ If I Change the format my data gets mismangled so I am bothered about using specific format as well.

#! C:\programfiles\perl\bin\perl
    open(HANDLE,"<file1.tsv")or die "can't open file: $!";
    while ($record = <HANDLE>)
    {
      print $record;
     }
    close (HANDLE);

TIA,
-Senthil

Why can't you use grep ?

having problems with recongnizing the file itself.

Can you post a few lines from the file ?