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