#!/usr/bin/perl
use warnings;
use strict;
# 744661 

my @var = [ 'foo.Bar',
	  'for.bar',
	];

for my $var(@var) {
	if ( $var =~ /^(__[-!#.0-9@-Z_a-z]+)$/ ) {
		print "\$var: $var\n";
	} else {
		 print "no match!\n";
	}
}