Select Code to Download

     case '/':    /* may be division, defined-or, or pattern */
         if ((PL_expect == XOPERATOR || PL_expect == XTERMORDORDOR) &&
+ s[1] == '/') {
...
            ...
            s = scan_pat(s,OP_MATCH);
        }

    case '.':
        ...
        if (PL_expect == XOPERATOR || !isDIGIT(s[1])) {
            ...
            Aop(OP_CONCAT)

$ perl -MO=Deparse -e 'sub foo(&) {}; foo { "foo" } . 5'
sub foo (&) {
...
    'foo';
}
, 0.5);

$ perl -E 'say 1 .5'
15