Almost there, but to match the OP's criteria you'll need an extra whitespace, so assuming the address is the first string in the field:

It still has nothing to do with Perl, though.

mysql> select state,d09,d07 from service where d07 like '%10.100.1.1%'
+;
+-------+--------------------------+--------------+
| state | d09                      | d07          |
+-------+--------------------------+--------------+
|     0 | cr1.pullpnt 25512        | 10.100.1.158 |
|     0 | Link PP2Prn 25506        | 10.100.1.157 |
|     0 | Link PP2Sol 25505        | 10.100.1.130 |
|     0 | CV2SOL 26754             | 10.100.1.138 |
|     0 | Link Sol2CV 26775        | 10.100.1.139 |
|     0 | Link Sol2PP 27014        | 10.100.1.131 |
|     0 | Link Princess2Pull 27016 | 10.100.1.154 |
|     0 | br1.glbx 28281           | 10.100.1.1   |
+-------+--------------------------+--------------+
8 rows in set (0.02 sec)
[download]

mysql> select state,d09,d07 from service where d07 like '%10.100.1.1';
+-------+----------------+------------+
| state | d09            | d07        |
+-------+----------------+------------+
|     0 | br1.glbx 28281 | 10.100.1.1 |
+-------+----------------+------------+
1 row in set (0.02 sec)
[download]