#!/usr/bin/perl -w

$nombre = 42 & 18;       # Opérateur AND de bit
print "1:# $nombren";   # $nomb