#!/usr/bin/env perl

use strict;
use warnings;

{
    local $/ = "\n>";

    while (<DATA>) {
        $_ = substr $_, 1 if $. == 1;

        my ($head, $data) = split /\n/;

        if ($head eq $ARGV[0]) {
            print "Found! Head: '$head'; Data: '$data'\n";
            last;
        }
    }
}

__DATA__
>head1
data1
>head2
data2
>head3
data3