Solution of Regex

Varianta lunga

    1 #!/usr/bin/perl -w
    2 use v5.14;
    3 
    4 my $line = <>;
    5 if ($line =~ /Yardi/) {
    6 	say 'YES'
    7 } else {
    8 	say 'NO'
    9 }

Varianta normala

    1 print <> =~ /Yardi/ ? 'YES' : 'NO'

Varianta scurta

    1 print<>=~Yardi?YES:NO

(Surse de Marius Gavrilescu)