#!/usr/bin/perl my $var = "_grOAd"; unless ($var=~ /^[A-Z_]\w*$/i) { print "not matched\n"; } else { print "matched\n"; }
# ./unless.pl matched