#!/usr/bin/perl -w
use strict;

my ($z1, $r, $z2) = (35, '+', 35);
print eval($z1.$r.$z2);