Select Code to Download

#!/usr/bin/env perl -l

...
    print '! m/,/: ', $var !~ /,/ ? 'matches' : 'not matches';
    print '! y/,/,/: ', $var !~ y/,/,/ ? 'matches' : 'not matches';
}

var = 'abc,d'
m/,/: not matches
...
y/,/,/: not matches
! m/,/: not matches
! y/,/,/: not matches