$str=~/\binto\s+(\S+)/; 
my $tablename = $1;