fork download
  1. #!/usr/bin/perl
  2.  
  3. my $string = "use-either-dvi-d-or-dvi-i";
  4. $string =~ s/(?<!dvi)-|-(?![di])/ /g;
  5. print $string . "\n";
Success #stdin #stdout 0s 6044KB
stdin
Standard input is empty
stdout
use either dvi-d or dvi-i