#!/usr/bin/perl -w $_=<STDIN>; chomp; if(($a,$b)=(/(\d+)[+](\d+)/)) { print $a+$b,"\n"; } if(($a,$b)=(/(\d+)[-](\d+)/)) { print $a-$b,"\n"; } if(($a,$b)=(/(\d+)[*](\d+)/)) { prirnt $a*$b,"\n"; } if(($a,$b)=(/(\d+)[\/](\d+)/)) { print $a/$b,"\n"; }