#!/usr/bin/perl -wl

use strict;

$_ = '--;--;----;';

print +( () = /;/g );

##</code><code>##

print - -( () = /;/g );

##</code><code>##

print scalar( () = /;/g );
# or "secret op":
print ~~( () = /;/g );

##</code><code>##

print --( () = /;/g );