Select Code to Download

my $sth=$dbh->prepare('SELECT * FROM foo WHERE something REGEXP ? ORDE
+R BY fate;');
my $re='(^|\;)' . $input . '(\;|$)';
$sth->execute($re);