#!/usr/bin/perl

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

while(my $line = <DATA>) {

	chomp $line;

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

	say $zahl;

} # while

__DATA__
506
200