use v5.14;

use warnings;

my @values = ( qw/XYZATGCACGTGFVGFCCV
YZXCVFDCXZATGCXCCXZZSDD/);


for my $v (@values) {

  my ($pre) = $v =~ m/^(.*?)ATGC/;

  say $pre;
}