#!/usr/bin/perl
$y_date= `date --date="yesterday"`;
$y_date =~ s/IST//g;
$y_date =~ m/(\d+)$/;

$year= $1;
print $year;
$y_date =~ m/^(\w+\s\w+\s\w+)/;
#print $y_date;
$day=$1;
print $day;

open(FH,"C:\\arerror.log") or die "Unable to open logfile:$!\n";
open(OUT,">C:\\output.log") or die "Unable to open output file:$!\n";
@fileco=<FH>;
@grepLogs = grep(/$day(.*)$year/,@fileco );

print OUT @grepLogs;