my $tablename = ($str=~/\binto\s+([^\s]+)/)[0];