#!/usr/bin/perl

my $sql = 'SELECT table.field0, table.field1 FROM table;';
$sql =~ s/table.//g;
print "$sql\n";

##</code><code>##

use constant TABLE_NAME => 'table';

##</code><code>##

$stmt =~ s/TABLE_NAME.//g;    # doesn't work