#!/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");
}