#!/usr/bin/perl

while(<DATA>){
chomp($_);
my @array = split("&amp;|&rdquo;|&ldquo;|&apos;",$_);
foreach (@array){
($_ eq ' ') ? (print "--Value missing--") : (print $_)
}
}
__DATA__
&rdquo;
How big are &amp; the Brothers? &rdquo; &ldquo; One day hiere last week, not
knowing the cause, some floors of Rockefeller Center were evacuated
when the floor shaking and screams of the lads&apos; fans during a TV


##</code><code>##



while(<DATA>){
chomp($_);
my @array1 = split(/(&amp;|&rdquo;|&ldquo;|&apos;)/,$_);
foreach (@array1){
($_ eq ' ') ? (print "--Value missing--\n") : (print $_ . "\n")
}
}

result


&rdquo;
How big are
&amp;
 the Brothers?
&rdquo;
--Value missing--
&ldquo;
 One day hiere last week, not
knowing the cause, some floors of Rockefeller Center were evacuated
when the floor shaking and screams of the lads
&apos;
 fans during a TV