use warnings;

my @str = ("____\n", "__ __\n", "__X __\n", "__Z__\n", "__\n__\n", "__^__\n");

for(@str) {
   if($_ =~ /__(\S+)?__\n/) {print "1 "}
   else {print "0 "}

   if($_ =~ /__\S+__\n/) {print "1\n"}
   else {print "0\n"}
}
__END__
1 0
0 0
0 0
1 1
0 0
1 1