Select Code to Download

use strict;
use warnings;
...
    my $ret = /9/g;
    print "($ret)\n"
}

use strict;
use warnings;
...
    my $a = "";
    print "(" . ~$a . ")\n";
}

(4294967295)
(4294967294)
()

use strict;
use warnings;
...
    my $ret;
    print ~ m/9/, "\n";
}

4294967294
4294967295

use strict;
use warnings;
...
    print ~ ($ret = m/9/), "\n";
    print "($ret)\n";
}

4294967294
(1)
4294967295
()