while (<>){
  # grab: ween{(commands)}
  if (/^ween\s*\{{1}\s*(.*\;){1}\s*\}{1}$/){ $cmd = $1;
    # avoid: .!+=[]*<>$%@?&:/\{} command in syntax
    if ( $cmd=~/[.\!\+=\[\]\*<>\$\%\@\?\&:\/\\\{\}]/g){
      print "$0:Found illegal character!\n";
    }
    else { print "$cmd\n";
    }
  }
  else { print "$0:Incorrect Syntax!!\n";
  }
}