or download this
# numbered:
my $sth=$dbh->prepare('SELECT ... FROM ... WHERE SUBSTR(column, 1, LEN
+GTH(:1)) = :1');
...
my $sth=$dbh->prepare('SELECT ... FROM ... WHERE SUBSTR(column, 1, LEN
+GTH(:what)) = :what');
$sth->bind_param(':what', $what);
$sth->execute();