Smart matching 

my $five = 5;
$five ~~ 5;           # true
$five ~~ 5.0;         # true
$five ~~ 0x5;         # true
$five ~~ 005;         # true
$five ~~ '5';         # true
$five ~~ ' 5 ';       # true
$five ~~ '5 a day';   # false
$five ~~ /\d/;        # true
$five ~~ [3, 5, 7]    # true