Select Code to Download

while (/a/g) {
   ...
}

my $count = () = 'baa baa black sheep' =~ /a/g;

print( ( () = 'baa baa black sheep' =~ /a/g ) >= 3 ? 'more' : 'less' )
+;