use strict;
my @pos = (0,5,15,20);

while(my $line = <>) {
   my $i = $#pos;
   while ($i >= 1) {
       my $pos1 = $pos[$i - 1];
       my $pos2 = $pos[$i];
       my $len = $pos2 - $pos1 + 1;
       my $part = substr( $line, $pos1, $len );
       $part =~ y/'//d;
       $part =~ y/a-zA-Z0-9\n\|-/ /c;
       substr( $line, $pos1, $len ) = $part;
       $i -= 2;
   } # end while $i
   print $line;
} # end while