#! /usr/bin/perl

use strict;
use warnings;

while (<DATA>)
{
  chomp;

  s/'[^']+'//g;
  print $_, "\n" for split /XX/;
}

__END__
aXXbXXc
abcd
a little 'quote XX' quote stuff XX other