#!/usr/bin/perl
{
  local $/ = "INPUT SEQUENCE=";
  <>; # discard first chunk
  while(<>) {
    chomp;
    open O, '>', /^(\d+)/ and $1 or die "$!\n";
    print O $/,$_;
  }
}