Help for this page
if ($var=~ m/@list/ ){ print 'ok'; }
#!/usr/bin/perl -w use strict; use warnings; ... else { print 'nope'; }