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

$Nuk = <STDIN> ;
chomp $Nuk ;

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

if($Nuk eq $EcoRI) {
     print "Die Restriktionsenzymschnittstelle für EcoRI ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für EcoRI ist NICHT vorhanden";
     }
}
if($Nuk eq $BamHI) {
     print "Die Restriktionsenzymschnittstelle für BamHI ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für BamHI ist NICHT vorhanden";
     }
}
if($Nuk eq $HindIII) {
     print "Die Restriktionsenzymschnittstelle für HindIII ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für HindIII ist NICHT vorhanden";
     }
}
if($Nuk eq $HaeIII) {
     print "Die Restriktionsenzymschnittstelle für HaeIII ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für HaeIII ist NICHT vorhanden";
     }
}
if($Nuk eq $NdeI) {
     print "Die Restriktionsenzymschnittstelle für NdeI ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für NdeI ist NICHT vorhanden";
     }
}
if($Nuk eq $SmaI) {
     print "Die Restriktionsenzymschnittstelle für SmaI ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für SmaI ist NICHT vorhanden";
     }
}
if($Nuk eq $PvuI) {
     print "Die Restriktionsenzymschnittstelle für PvuI ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für PvuI ist NICHT vorhanden";
     }
}
if($Nuk eq $SphI) {
     print "Die Restriktionsenzymschnittstelle für SphI ist vorhanden";
     else {"Die Restriktionsenzymschnittstelle für SphI ist NICHT vorhanden";
     }
}




exit ;