use v5.18.0; # codul nu poate fi rulat decât pe versiuni PERL mai noi de 5.18
use strict;
use warnings;
use experimental;

print " Introduceti o secventa in cod genetic: ";
my $date = <STDIN>;
chomp($date);

#=varianta if/elsif/else
if ($date !~ /[^acgt]+/i){
    print " Secventa introdusa este in format ADN\n";
}elsif ($date !~ /[^acgu]+/i){
    print " Secventa introdusa este in format ARN\n";
}else{
    print " Secventa introdusa este intr-un format necunoscut\n";
}
#=cut
#=varianta if/else(if/else)
if ($date !~ /[^acgt]+/i){
    print " Secventa introdusa este in format ADN\n";
}else{
    if ($date !~ /[^acgu]+/i){
        print " Secventa introdusa este in format ARN\n";
	}else{
        print " Secventa introdusa este intr-un format necunoscut\n"
    }
}
#=cut
#=varianta given/when în combinație cu use experimental
given ($date){
    when (!/[^acgt]+/i) { print " Secventa introdusa este in format ADN\n"; }
    when (!/[^acgu]+/i) { print " Secventa introdusa este in format ARN\n"; }
    default             { print " Secventa introdusa este intr-un format necunoscut\n";}
}
#=cut