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

my $description = $_;