#!/usr/bin/perl
# Script to break apart CCITT question files into individual parts

$newfilename = "0";
LOOP:
while (<>) {
	if (/^\={5,}/)
	{
		$newfilename = "1";
		next LOOP;
	}
	if ($newfilename eq "1")
	{
		( $minor , $major ) = /^Question (\d+).(\w+) /;
		close ( FILE);
		$major =~ tr/A-Z/a-z/;
		$filename = "q_" . $major . "\." . $minor ;
		open ( FILE, "> $filename");
		print FILE ;
		$newfilename = "0" ;
	}
	else 
	{
		print FILE  ;
	}
}