Text::DeSupercite 

use Text::DeSupercite qw/desupercite/;
my $body = <<'EOF';
>> Quoted Text

| Quoted Text

Blah> Quoted Text
EOF
print desupercite($body, 1), "\n";

> Quoted Text

> Quoted Text

> Quoted Text