Code: Perl
if ($nextline =~ /^([a-zA-Z_]*)*]*<\/Register/)