#!/usr/bin/perl
use strict;
use warnings;

foreach (<DATA>) {
    chomp;
    my @strings = split;
    printf("%-1s %-13s\t%8s\n", @strings);
}

__DATA__
D. persimilis          ggacaata
D. grimshawi          tcg-----
D. simulans              gg---agc
D. willistoni          aaataaat
D. virilis          tcg-----
D. sechellia          --------