My bad. I tried the following:

$tablename = $1 if $stmt =~ m/^FROM\s+(\S+)/mgs;
#$tablename =~ s/;//g;
print "'$tablename'\n";

but I am back to table; as to what is assigned to $tablename. I guess I need to resort to refining the character class I want to save. Thanks again.