use strict;
use warnings;

use 5.010; # Funktionen für modernes Perl aktivieren

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

my $Nuk = <STDIN>;
chomp $Nuk;

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

if ( $Nuk =~ $EcoRI )
{    # falls ein Teil in $Nuk dem Regex in $EcoRI entspricht
    say "Die Restriktionsenzymschnittstelle für EcoRI ist vorhanden";
}
else {
    say
        "Die Restriktionsenzymschnittstelle für EcoRI ist NICHT vorhanden";
}

if ( $Nuk =~ $BamHI ) {
    say "Die Restriktionsenzymschnittstelle für BamHI ist vorhanden";
}
else {
    say
        "Die Restriktionsenzymschnittstelle für BamHI ist NICHT vorhanden";
}

if ( $Nuk =~ $HindIII ) {
    say "Die Restriktionsenzymschnittstelle für HindIII ist vorhanden";
}
else {
    say
        "Die Restriktionsenzymschnittstelle für HindIII ist NICHT vorhanden";
}

if ( $Nuk =~ $HaeIII ) {
    say "Die Restriktionsenzymschnittstelle für HaeIII ist vorhanden";
}
else {
    say
        "Die Restriktionsenzymschnittstelle für HaeIII ist NICHT vorhanden";
}
if ( $Nuk =~ $NdeI ) {
    say "Die Restriktionsenzymschnittstelle für NdeI ist vorhanden";
}
else {
    say
        "Die Restriktionsenzymschnittstelle für NdeI ist NICHT vorhanden";
}

if ( $Nuk =~ $SmaI ) {
    say "Die Restriktionsenzymschnittstelle für SmaI ist vorhanden";
}
else {
    say
        "Die Restriktionsenzymschnittstelle für SmaI ist NICHT vorhanden";
}

if ( $Nuk =~ $PvuI ) {
    say "Die Restriktionsenzymschnittstelle für PvuI ist vorhanden";
}
else {
    say
        "Die Restriktionsenzymschnittstelle für PvuI ist NICHT vorhanden";
}

if ( $Nuk =~ $SphI ) {
    say "Die Restriktionsenzymschnittstelle für SphI ist vorhanden";
}
else {
    say
        "Die Restriktionsenzymschnittstelle für SphI ist NICHT vorhanden";
}

exit;