if( $date =~ m/$date1/)
          { unlink file; }