use strict;
use warnings;

# Se poate verifica efectul modificatorilor /g (global) și
# /i (insensitive) prin introducerea sau eliminarea lor.
# Modificatorul /x permite introducerea spațiilor în expresie,
# fără ca acestea să fie luate în considerare.
print "EXEMPLUL 1.\n";
my $secv = 'accgtgttttACCtttacctttgt';
print "accgtgttttACCtttacctttgt\n";
while ($secv =~ m/ a c c /xgi) {
    print "S-a identificat $& ";
    print "la pozitia $-[0]\n";
}
print"\n";
# The /o modifier only compiles the pattern once. This one is an efficiency thing.
# Whenever a regular expression is used, it must first be compiled by the regex library.
# This option tells perl to only compile the pattern once,
# and then use it as many times as it is called (in a loop for instance).

print "EXEMPLUL 2.\n";
my @array = qw (one two three four);
print"@array\n";
my $pattern = 'one';
print'$pattern = ',"$pattern\n";
foreach my $x (@array) {
    print "$pattern in $x? ";
    if($x =~ /$pattern/o){
        print "yes!\n";
    }else{
        print "no!\n";
    }
    $pattern = 'three';
    print'$pattern = ',"$pattern\n";
}
print "\n";

print "EXEMPLUL 3.\n";
@array = qw (one two three four);
print"@array\n";
$pattern = 'one';
print'$pattern = ',"$pattern\n";
foreach my $x (@array) {
    print "$pattern in $x? ";
    if($x =~ /$pattern/){
        print "yes!\n";
    }else{
        print "no!\n";
    }
    $pattern = 'three';
    print'$pattern = ',"$pattern\n";
}