dokuwiki

use strict;
use warnings;

my $plz = $ARGV[0];

if ($plz =~ /^A[- ]{0,1}[1-9]\d{3}$/) {
   printf "%s ist eine PLZ\n", $plz;
} else {
   printf "%s ist KEINE PLZ\n", $plz;
}