$ perl -le 'print tr/-// for "$time.---------------------------------------------------------------\n\n"'