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; }