my $name ;
while(<>){
　$name = $_ if /^NAME/ ;
　next if ! ( /UOFTOKYO/ .. /^ID/ || eof );
　print $name and undef $name if defined $name ;
　next if !(/^WORKS/ .. /^END/ ) ;
　print ；
}
細かい所は知らん。