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