#!/usr/bin/perl
use Modern::Perl;

# test the content submitted for preview  -- for code and para tags

$/="#####";       # will be followed by addtl samples -- good and bad
my $nopara = 0;
my $nocode = 0;

my $preview = <DATA>;
# print $preview;
my @preview = split /\n/, $preview;

for $_(@preview) {
    # say "\t Ln14, \$_: $_";
    if ( $_ =~ /!<p/) {
        $nopara++;
    }
    if ( $_ =~ /(<\/\s*br>)/ ) {        # arguably, this could be a s/// rather than a warning
        say "\n\t Bad tag -- &quot;$1&quot; -- found in \n \t $_\n";
    }
    if ( $_ =~ /!<(c.*).*[;}] <\/c$1>/) {
        $nocode++;
        say "\n\t Do you need code tags in \n\t $_?\n?";
    }
}

if ($nopara == 0 ) {
    print "\n\t You don't have any &lt;p> paragraph tags &lt;/p> in your draft. Do you need some?\n";
}
if ($nocode == 0 ) {
    print "\n\t You don't have a &lt;c> code tag pair &lt;/c> in your draft. Is that correct?\n";
}

print "\n\n @preview\n";   # imperfect, as a good <br> gets ignored, but perfectable

__DATA__
I wantz to know if i can do this</br>
<c>my $foo = 'bar' if (bar == bar);
cuz that would be really cool.<br>

oh, also, would somebody teach me how to use your parlmenks markup?
love, 
foobar

########

##</code><code>##

         Bad tag -- &quot;</br>&quot; -- found in
         I wantz to know if i can do this</br>


         You don't have any &lt;p> paragraph tags &lt;/p> in your draft. Do you need some?

         You don't have a &lt;c> code tag pair &lt;/c> in your draft. Is that correct?


 I wantz to know if i can do this</br> <c>my $foo = 'bar' if (bar == bar); cuz that would be really cool.<br>  oh, also, would somebody teach me how to use your parlmenks markup? love,  foobar   #####