my $regex = qr{
    \A   # start of string
    .{3} # any 3 characters
    _    # underscore
    .*_ear  # anything ending in _ear
   \z    # end of string
}xs;
[download]

(Update: fixed ending of string)