if ( $line =~ /[^\s]XY/ ) { ... }

##</code><code>##

while ( <FILE> ) {
    next if /^\s/;
    # process lines without leading whitespace here ...
}