m/$search/; print $1;