if( $name !~ /^Monica/){.......}