while( my $line = <FH> ) {
    if ( $line =~ /\Q$aDate\E/ ) {
        print $line;
    }
}