$s = 'insert into table1 ( v1, v2 , v3) values ( v1, v2, v3)';;
( $tname ) = $s =~ m[into\s+(\S+)\s?\(]; 
print $tname;;
table1