#!/usr/bin/perl

print "\nInput 5-signed number: ";
$number = <STDIN>;
chomp $number;

$sign5 = $number % 10;
print "$sign5$sign5$sign5$sign5$sign5\n";
$number = ($number - $sign5) / 10;
$sign4 = $number % 10;
print "$sign4$sign4$sign4$sign4\n";
$number = ($number - $sign4) / 10;
$sign3 = $number % 10;
print "$sign3$sign3$sign3\n";
$number = ($number - $sign3) / 10;
$sign2 = $number % 10;
print "$sign2$sign2\n";
$number = ($number - $sign2) / 10;
$sign1 = $number % 10;
print "$sign1\n";