$flag1 = 1;
$flag2 = 0;
$flag3 = 0;

s{<p>}{<con>};
s{.*\K</p>}{</con>}s;      # Faster, Perl >= 5.10
s{(.*)</p>}{$1</con>}s;    # Slower, any Perl