#!/usr/local/bin/perl
$c = "c";
print ++$c," from c\n";
print ++$c," from d\n";
#apply the same in numeric context
$c+=0;
print $c, " from numeric operation\n";
print ++$c, " incremented after numeric assignment";