if($anything){ print <<" Ende" # =~s/ \n/\n/g #could be appended Text Ende }