print "Geben Sie eine Nukleotidsequenz ein:\n" ;

$Nuk = <STDIN> ;
chomp $Nuk ;

# Regex erzeugen
$EcoRI = qr/GATTCC/i ;
$BamHI = qr/GGATCC/i ;
$HindIII = qr/AAGCTT/i ;
$HaeIII = qr/GGCC/i ;
$NdeI = qr/CATATG/i ;
$SmaI = qr/CCCGGG/i ;
$PvuI = qr/CGATCG/i ;
$SphI = qr/GCATGC/i ;

if($Nuk =~ $EcoRI) { # falls ein Teil in $Nuk dem Regex in $EcoRI entspricht
     print "Die Restriktionsenzymschnittstelle für EcoRI ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für EcoRI ist NICHT vorhanden";
     }
}
if($Nuk =~  $BamHI) {
     print "Die Restriktionsenzymschnittstelle für BamHI ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für BamHI ist NICHT vorhanden";
     }
}
if($Nuk =~  $HindIII) {
     print "Die Restriktionsenzymschnittstelle für HindIII ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für HindIII ist NICHT vorhanden";
     }
}
if($Nuk =~  $HaeIII) {
     print "Die Restriktionsenzymschnittstelle für HaeIII ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für HaeIII ist NICHT vorhanden";
     }
}
if($Nuk =~  $NdeI) {
     print "Die Restriktionsenzymschnittstelle für NdeI ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für NdeI ist NICHT vorhanden";
     }
}
if($Nuk =~  $SmaI) {
     print "Die Restriktionsenzymschnittstelle für SmaI ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für SmaI ist NICHT vorhanden";
     }
}
if($Nuk =~  $PvuI) {
     print "Die Restriktionsenzymschnittstelle für PvuI ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für PvuI ist NICHT vorhanden";
     }
}
if($Nuk =~  $SphI) {
     print "Die Restriktionsenzymschnittstelle für SphI ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für SphI ist NICHT vorhanden";
     }
}


exit ;