## Crude fasta load--Expects 1 sequence per file
    open my $fh, '<', $path or croak "$path : $!\n";
    <$fh>; ## discard header
    ( my $sequence = do{ local $/; <$fh> } ) =~ s[\s+][]g;
    close $fh;