Perl constants are actually functions, so try

my $tmp = quotemeta(TABLE_NAME . '.');
$stmt =~ s/$tmp//g;
[download]

Update: Fixed code, because I didn't test before I posted.