Perl: string formating