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