#!perl -nl
print$z+=y/-// if/-/;print$z+=y/_// if/_/