if ($remove eq ~ m/^.*\b($remove)\b.*$) { # do stuff here } #### if ( m/\b$remove\b/ ) { # do stuff here }