#!perl -p060l
$\+=/\(/-/\)/