Select Code to Download

my $ethernet=`ip addr`;
if ($ethernet!~/eth1\.\d{4}\@/gm){
    print "No vlans exist on device.\n";
...
    print `ip link del $1\n";
    print "Removed $1\n";
}