( my @a = `route print`=~ m!0.0.0.0!g ) > 3

##</code><code>##

( () = `route print`=~ m!0.0.0.0!g ) > 3

##</code><code>##

my $n = $str =~ m/this/g;

##</code><code>##

my $n = () = $str =~ m/this/g;
my $n = grep 1, $str =~ m/this/g;
my $n = map $_, $str =~ m/this/g;

##</code><code>##

my $n = 0; ++$n while $str =~ m/this/g;