Select Code to Download

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

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

print "$table\n";

table