#!perl

use strict;
use warnings;

my $zufallnr = 12345;
my $derVorname = 'Kira';
my $derNachname = 'Eberle';
my $mailto = 'spam@rundablage.de';

# -- Trennzeichen Tabulator ausschließen
$zufallnr =~ s/\t+/ /g;
$derVorname =~ s/\t+/ /g;
$derNachname =~ s/\t+/ /g;
$mailto =~ s/\t+/ /g;

# -- Nummer prüfen: ist gültig, wenn es zwischen 1 und 90 Ziffern sind.
die("Ungültige Nummer: [$zufallnr]") if $zufallnr !~ m/^\d{1,90}$/;

open(APPENDFILE,">>$zufallnr.txt") or die($!);
print APPENDFILE "$zufallnr\t$derVorname\t$derNachname\t$mailto\n";
close(APPENDFILE);