specify the output of the program. You need to write five nonnegative integers less than six. #!/usr/bin/perl use warnings; use strict; my @words = ('192.165.0.0', 10.0.0.1', '10.a.0.2', '10.0.0', '192.168.0.0.1'); my $i = 0; for(@words){ if(/([0-9]{1,3}(\.[0-9]{1,3}}{3})/) { print($i," "); } else { print(5," ");