#!/usr/bin/perl
#********************************* DISCLAIMER *********************************
# Copyright (c) 2003 IIJIMA Hiromitsu aka Delmonta, the Chairman of DENNOU
#       GEDOU GAKKAI, N. D. D. <http://www.dennougedougakkai-ndd.org>
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted under the BSD License modified in 22 July 1999,
# found at <http://www.opensource.org/licenses/bsd-license.php>.
#******************************************************************************

#******************************* WHAT IS THIS? ********************************
# This program extracts plain text from RTF (rich text format) file.
# No charset or end-of-line conversion, so use it with proper filter(s).
#******************************************************************************

while (<>)
{
	s/\\'([0-9a-fA-F]{2})/chr(hex($1))/eg;
	print;
}