T:\>perl -w -E "say qq(/). (3 == 4) . qq(/)"
//

T:\>perl -w -E "say qq(/). (3 == 3) . qq(/)"
/1/