use strict;
use warnings;

my $date   = $ARGV[0]; # Datum als Befehlsparameter einlesen fuer leichteres testen
my $faulty = $date;

$faulty =~ s/^20[1-9][0-9]//;
$faulty =~ s/0[1-9]|1[012]$//;

print "$date\n$faulty\n";