String Perl

#!/usr/local/bin/perl 
$num = 26; 
$outstr = sprintf("%d = %x hexadecimal or %o octal\n", 
$num, $num, $num); 
print ($outstr);