DB<135> grep {defined} $str =~ m/ (?: [\\\@]{2}+ | ( [\\\@]\w+ ) | [^\\\@]+ ) /xg 
 => ("\@abc", "\@efg")