/-{1,1}/ 

if(my $string =~ /-/) {
#hier dann dein code
}

#!/usr/bin/perl
use strict;
use warnings;
my $string ="MisterL - ein ganz schlechter Perlprogrammier";
#if($string =~ /-{1,1}/) {
if($string =~ /-/) {
  print("MisterL ist wirklich ein ganz schlechter Perlprogrammierer");
}

if(my $string =~ /-/) {
#hier dann dein code
}

print qq~yes\n~ if '--' =~ /-{1,1}/"

if(my $string =~ /-/) {
#hier dann dein code
}

/-(?!--)/

my $string = 'irgendetwas - nochwas';
my $pos = index($string, '-');
if ( $pos != -1 && index($string, '-', $pos) == -1 ) {
    # genau 1 minus in $string
}