File mttroot/mtt/bin/trans/ese_r2txt.pl artifact afe19321de part of check-in 05ac0580de

#! /usr/bin/perl -w

use strict;

$/ = ';';			# statements are terminated by ;
while (<STDIN>) {
    chomp;
    s/%.*\n//g;			# strip comments (% to end of line)
    s/(\s)*//g;			# strip whitespace
    s/^END$//;			# strip junk
    next if /^(\s)*$/;		# skip blank lines
    printf ("%s\n", $_);	# print what remains
}