Select Code to Download

$string = '--*test--';
if ( $string =~ /\btest\b/ ) { print "$string matched.\n" }

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