$descr = <>;
while (<>) {
   chop $descr;
   print $descr;
}