my $res = 0+$x | 0+$y; #### my $res = ''.$x | ''.$y;