#!/usr/bin/perl

use warnings;
use strict;
#use feature qw( say );

while(my $line = <DATA>) {

	chomp $line;

	my $zahl = sprintf("%05s", $line);

	#say $zahl;
         print $zahl."\n";

} # while

__DATA__
506
200