$ perl -Mstrict -Mwarnings -E '
open my $inFH, q{<}, \ <<EOD or die $!;
Seb
Xavier
Peter

Roland
Jim
Xerox
Paddle

Yoyo
EOD

while ( my $line = <$inFH> )
{
    print $line
       if $line =~ m{X} .. $line =~ m{^\s*$} and $line !~ m{^\s*$};
}'
Xavier
Peter
Xerox
Paddle
$

##</code><code>##

$ perl -Mstrict -Mwarnings -E '
open my $inFH, q{<}, \ <<EOD or die $!;
Seb
Xavier
Peter

Roland
Jim
Xerox
Paddle

Yoyo
EOD

while ( my $line = <$inFH> )
{
    print $line
       if ( $line =~ m{X} .. $line =~ m{^\s*$} ) && $line !~ m{^\s*$};
}'
Xavier
Peter
Xerox
Paddle
$