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