if ($Line !~ /\bgroup\b/ && $Line =~ /^(\d{4}) ([^\.]+?[\.\!\?])$/)

##</code><code>##

if ($Line =~ /^(?!.*\bgroup\b)(\d{4}) ([^\.]+?[\.\!\?])$/)