$i = 1; if ( $i ~~ 1 ) { # $i == 1
$i = 'foo'; if ( $i ~~ 'foo' ) { # $i eq 'foo'
$i = 'foo'; if ( $i ~~ m/fo(.)/ ) { # $1 contains 'o'