while (<IN>) {

##</code><code>##

/^description/ && last while <IN>;

my $description = $_;