#!/usr/bin/perl
my $string = "use-either-dvi-d-or-dvi-i";
$string =~ s/(?<!dvi)-|-(?![di])/ /g;
IyEvdXNyL2Jpbi9wZXJsCgpteSAkc3RyaW5nID0gInVzZS1laXRoZXItZHZpLWQtb3ItZHZpLWkiOwokc3RyaW5nID1+IHMvKD88IWR2aSktfC0oPyFbZGldKS8gL2c7CnByaW50ICRzdHJpbmcgLiAiXG4iOw==