use strict;
my $re = qr/.+\-(.+)/;

while(<DATA>){
    s/$re/$1/;
    print;
}

__DATA__
domain-comp1
domain-comp2
domain-comp3