if ($var=~ m/@list/ ){ print 'ok'; }