$sql !~ /^\s*select /

Suggested improvement:

$sql !~ /^\s*select\s/i
[download]

This would also allow "SELECT", and tabs or newlines after the select keyword.

U28geW91IGNhbiBhbGwgcm90MTMgY
W5kIHBhY2soKS4gQnV0IGRvIHlvdS
ByZWNvZ25pc2UgQmFzZTY0IHdoZW4
geW91IHNlZSBpdD8gIC0tIEp1ZXJk