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

Roland
Jim
Xerox
Paddle

Yoyo
EOD

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