⟩ Write an expression or Perl script to identify the entered IP address is valid or not?
#! /usr/bin/per
use strict;
#- Use Input
#---------------
my $ip_add = "";
#- Script start
#---------------
print"Enter the IP addressn";
$ip_add = <STDIN>;
chomp($ip_add); # Remove the last "n" character
$ip_add=$ip_add."."; # Append . at the end of IP address
#-------Expression to check IP address is valid or not-----#
if($ip_add =~ m/^[0-2]?[0-5]?[0-5]?.){4}$){
print" Valid IP Addressn";
}else{
print" Invalid IP Addressn"
}
