#!/usr/bin/perl    
use strict;    
use warnings;


print "Saisir un  texte\n";
my $essai = <STDIN>;
chomp($essai);

my $motif1 = "kinase(s)?";
    print "$essai match motif $motif1 \n" if ($essai =~ /$motif1/);

my $motif2 = "(ATAT)+";
print "$essai match motif $motif2 \n" if ($essai =~ /$motif2/);

my $motif3 = "(CGCG){2}[^AC]{3}";
print "$essai match motif $motif3 \n" if ($essai =~ /$motif3/);

    my $motif4 = "ACG[ACGT]{3}T{4,6}";
print "$essai match motif $motif4 \n" if ($essai =~ /$motif4/);
