#!/usr/bin/perl

my $stmt0 = "SELECT table.field0, table.field1\nFROM table;\n";
my $stmt1 = "SELECT table.field0, table.field1\nFROM table\nWHERE field0 = 'foo';\n";

my $tablename = $1 if $stmt0 =~ m/^.*FROM\s+(\S+)\s*.*;$/s;
print "table name =\"$tablename\"\n";

$tablename = '';
$tablename = $1 if $stmt0 =~ m/^.*FROM\s+(\S+)\s*.*;$/s;
print "table name =\"$tablename\"\n";

##</code><code>##

$tablename = $1 if $stmt =~ m/^.*FROM\s+(\S+)\s*.*$/gs;

##</code><code>##

$tablename = $1 if $stmt =~ m/^.*FROM\s+(\S+)\s*.*$/gs;
$tablename =~ s/;//;