Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl qw/2015/;

while (<DATA>) {
...
name=servername.xyz.abc.coom
name=servername
name=servername.xyz.com
  2. or download this
    name=servername.xyz.abc.coom => servername
name=servername => servername
name=servername.xyz.com => servername