$in1 =~ s/\s+//g;

Although your comment suggests you are aware, I will still point out that s/\s+//g will remove all spaces, including spaces between digits/other characters, not just leading and trailing spaces.

While unlikely to be a problem with your program, it is still possible to feed an unexpected value:

would result in $in1 being 12 and $in2 being empty