Select Code to Download

$T = qr//;
$U = qr//;
...
$foo =~ /b/;
print '$foo got matched against /b/: '
    .  ( ( $foo =~ $U ) ? 'pass' : 'fail' ) . "\n"

t: 1    u: 2
before $t gets reassigned: fail
...
$u never gets reassigned: fail
$foo never got assigned a $1 or $2 or regex matched: fail
$foo got matched against /b/: pass