c:\@Work\Perl\monks>perl -wMstrict -MO=Deparse,-p -le
"my $ethernet=`ip addr`;
 if ($ethernet!~/eth1\.\d{4}\@/gm){
     print qq{No vlans exist on device.\n};
     exit;
 }
"
BEGIN { $^W = 1; }
BEGIN { $/ = "\n"; $\ = "\n"; }
use strict 'refs';
(my $ethernet = `ip addr`);
unless (($ethernet =~ /eth1\.\d{4}\@/gm)) {
    print("No vlans exist on device.\n");
    exit;
}
-e syntax OK