#!/usr/bin/perl
# xpmtotxt - Don Yang (uguu.org)
#
# 11/30/01

while(<>)
{
   last if /pixels/;
}

while(<>)
{
   last if /;/;
   s/^(")(.*)(".?)$/$2/;
   s/[^\s]/X/g;
   print;
}