my $x = '8';
my $y = '16';
print((0+$x) | (0+$y), "\n");    # 24
print((''.$x) | (''.$y), "\n");  # 96