#!/bin/bash/perl

open(FH, $ARGV[0]) || die("Cannot open:");
#open(FH, "gunzip -c $ARGV[0] |") or die "gunzip $ARGV[0]: $!";

while(<FH>){
 some regex code

}