until (my $motif =~ /^\s*$/ );# Line 58