Select Code to Download

my @matches = grep {defined $_} map { /^($subnet\.\d+)/ and $1; } @lin
+es;

#!/usr/bin/perl -w

...
192.168.89.173       0x0060B0F270BB        Vl2n22
192.168.87.250       0x00405801279B        Vl2n22
192.168.87.251       0x0040580008D6        Vl2n22