my $string = "--*test--";
if ( $string =~ /\W+test\W+/ ) .....