$stmt =~ m/^FROM\s+(\S+)$/mgs;

##</code><code>##

use strict;
use warnings;

my $sql = q{
SELECT id
FROM table
WHERE name like 'A%'
};

my ($table) = $sql =~ m/^FROM\s+(\S+)$/mgs;

print "$table\n";

##</code><code>##

table