perl -e '$foo="007";print "$foo\n";$foo+=0;print "$foo\n"'
007
7