#!/usr/bin/perl

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

if ( $number1 > 10)
   {
      $number1 = 10;
   }
if ( $number1 < 2)
   {
      $number1 = 2;
   }
$string1 = "X" x $number1;
$string2 = ( "X" . ( " " x ( $number1 - 2 ) ) . "X\n" ) x ( $number1 - 2 );

print "$string1\n";
print "$string2";
print "$string1\n";