#!/usr/bin/perl
my $string = "use-either-dvi-d-or-dvi-i";
$string =~ s/dvi-[id](*SKIP)(*F)|-/ /g;
IyEvdXNyL2Jpbi9wZXJsCgpteSAkc3RyaW5nID0gInVzZS1laXRoZXItZHZpLWQtb3ItZHZpLWkiOwokc3RyaW5nID1+IHMvZHZpLVtpZF0oKlNLSVApKCpGKXwtLyAvZzsKcHJpbnQgJHN0cmluZyAuICJcbiI7