my $c= qr/(?:\A|\n)([^-]|-[^-])/;

$str =~ m/$c* x/;