use strict;
use warnings;

use 5.010; # Funktionen für modernes Perl aktivieren

say "Geben Sie eine Nukleotidsequenz ein:";
my $Nuk = <STDIN>;
#my $Nuk = 'GATTCCTTGACGATTCCCAGTCATATGGATCGATTCCTCAGCATATGA'; # nur zum test 

chomp $Nuk;

say "Geben Sie Restriktionsenzyme (mehrere getrennt druch Leerzeichen) ein:";
my $Restriktenz =  <STDIN>;
#my $Restriktenz =  'GATTCC CATATG'; # nur zum test 
chomp $Restriktenz;

# Liste Restriktionsenzyme als Hash
my (@restriktenz) = split /\s+/,$Restriktenz;

my %found;
for my $res (@restriktenz) {
	my (@num) = ($Nuk =~ /($res)/gi);
	$found{$res} = scalar @num;
}


say "$_ wurde "
	. $found{$_}
	. "mal gefunden"
	# sortiert nach Restriktionsenzym 
	for sort keys %found;