next if $text =~ /^\.+$/;

##</code><code>##

next if $text =~ /^\.\.?$/;