open (FILEH, "/tmp/aform");
while (<FILEH>) {
chomp;
open(MYOUTFILE, ">>/tmp/new_form");

 if ( /Department/ ) {  
      $bname =~ /^Board Name:(.+)Department/;

 print MYOUTFILE "$bname'\n";
    }
 close(FILEH);
 close(MYOUTFILE);