use warnings;
use strict;

chomp ( $_ = <> );
print "good input\n" if /^\d{5}$/;