#!/usr/bin/perl
use strict;
use warnings;
use Date::Manip;
my $n="4";
my $date_converted = UnixDate(ParseDate("$n days ago"),"%e/%h/%Y");
open FILE,"> file.txt";
open DATA,"input.txt";

while(<DATA>){
my @tab_delimited_array = split(/\t/,$_);
  $tab_delimited_array[3] =~ s/^\[//;
  $tab_delimited_array[3] =~ s/^\-//;
        my $converted_date = Date_ConvTZ( UnixDate($tab_delimited_array[3],"%Y%m%d%H:%M:%S"),'GMT','PST');
        my $pst_converted_date = UnixDate($converted_date,"%e/%h/%Y:%H:%M:%S");
        $pst_converted_date =~ s/^\s//g;
        my $extracted_YMD=UnixDate($converted_date,"%e/%h/%Y");
        if($extracted_YMD =~ m/$date_converted/){
        print FILE $_;
        }
}

close FILE;
close DATA;