$pos = 'VP';
my($before, $find, $after) = $data =~ /^(.*?)($pos)(.*?)$/;