#!/usr/bin/perl -w

$m="a";
print ++$m; # Prints "b", as expected


$m="a,b";
print $m+0; # Prints 0, as expected
# throws a warning also as expected


$m="a,b";
print ++$m; # Prints 1, as expected
# but throws no warning