#!/usr/bin/perl -w
 
$nombre = 42 & 18;       # Opérateur AND de bit
print "1:# $nombren";   # $nomb