use strict;
use warnings;
use 5.010;

my $query = 'insert into table1 ( v1, v2 , v3) values ( v1, v2, v3)';

my @pieces = split ' ', $query, 4;
say "-->$pieces[2]<---";

--output:--
-->table1<---