chop ( $text = eval "<<_EOD_$text\n_EOD_" );