#!/usr/bin/perl

print "\nInput first number: ";
$number1 = <STDIN>;
chomp $number1;

if ( $number1 > 30)
   {
      $number1 = 30;
   }
if ( $number1 < 1)
   {
      $number1 = 1;
   }
$string1 = "\$" x $number1;

print "Input second number: ";
$number2 = <STDIN>;
chomp $number2;
if ( $number2 > 30)
   {
      $number2 = 30;
   }
if ( $number2 < 1)
   {
      $number2 = 1;
   }
$string2 = "%" x $number2;

print "Input third number: ";
$number3 = <STDIN>;
chomp $number3;
if ( $number3 > 30)
   {
      $number3 = 30;
   }
if ( $number3 < 1)
   {
      $number3 = 1;
   }
$string3 = "^" x $number3;

print "Input fourth number: ";
$number4 = <STDIN>;
chomp $number4;
if ( $number4 > 30)
   {
      $number4 = 30;
   }
if ( $number4 < 1)
   {
      $number4 = 1;
   }
$string4 = "&" x $number4;

print "Input fifth number: ";
$number5 = <STDIN>;
chomp $number5;
if ( $number5 > 30)
   {
      $number5 = 30;
   }
if ( $number5 < 1)
   {
      $number5 = 1;
   }
$string5 = "*" x $number5;
print "$string1\n";
print "$string2\n";
print "$string3\n";
print "$string4\n";
print "$string5\n";