String Perl

printf "%d%%\n", 45;