if ( $line =~ /^\S/ && $line =~ /XY/ ){ ... }

##</code><code>##

if ( $line =~ /^\S.*?XY/ ){ ... }