#!/usr/bin/perl
$a = 10;
$result = ($a+=5) + ($a-=10);
print "$result";