$sentence="Error Problem in read_vhdl No designs were read DBR 011";
$sentence =~ s/[\w\s]{20}$//;