#!/usr/bin/perl
use strict;
use warnings;
my $x='';
while(!$x || $x=~/\D/)
{
  print "Bitte geben Sie einen Teiler ein! ";
  chomp($x = <STDIN>);
}

my $s='Ich bin durch %s teilbar! Der Multiplikator ist %s!';
for (0..30)
{
  print;
  $_/=$x;
  printf($s,$x,$_) if (int($_) == $_);
 print "\n";
}