#!/usr/bin/perl
use warnings;
use strict;

print ord('c'), "\n";

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

printf "%d\n", '1234';  # The entire string is an integer
printf "%d\n", '12c3';  # printf stops the format conversion at the first non-integer  
printf "%d\n", 'c123';  # No characters converted, 0 is returned
printf "%d\n", '0c123'; # Conversion stops after first character, 0 is returned