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