#!/usr/bin/perl -wl

use strict;

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

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