Select Code to Download

#!/usr/bin/perl -wl

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

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

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

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

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