(20 pts) Please specify the output of the program. You need to write five nonnegative integers less than six. You don't need to upload a file: #!/usr/bin/peri use warnings: use strict; my @words = ('192.165.0.0', "10.0.0.1'. "10.0.0.2. "10.0.0. '192.168.0.0.1"); w my $i = 0; for(@words) if(/([0-9]{1,3}(\.[0-9]{1,3}}{3}}) { print($i, ""); } else { print(5,""); print(5,""); } $i = $i + 1; } print(" ")