help with regular expressions

[adriaan]

for a program i'm makin I need to be able to analyze lines like the following one

1 waarschijnlijk neiging tot suikerziekte ccaggcccac ctggagactc

and split it up in a part that containes the number
a part that containes the text
and as a last part the dna sequence ccaggcccac ctggagactc

now i can do that with the following code

# haal de ziekte codes er uit
        if($line =~ m/(\b[ctga]+\b)(.*)/)
        {
 
            $part3 = $1.$2; 
 
            # haal het einde lijn teken eraf
            chop $part3;
 
        }
 
        # haal het nummer en de naam uit de string
        if($line =~ m/(\d+)(.*?)(\b[gtac]+\b)/)
        {
 
                        # $1 = the numeric part, $2 the text
            # nu maken we een hash met het nummer als keyword 
            $ziektenaamhash{$1} = $2;
 
            # we maken ook een hash waarbij het nummer verwijst 
            $ziektehash{$1} = $part3;
 
        }

but I'm not really happy with the $1.$2 part as it forces me to use the chop operation every time.
Is there a more efficient way to be split the lines in those parts or is my code just fine?

[KevinADC]

just remove the \b parts from the capturing parenthesis:

if($line =~ m/\b([ctga]+)\b(.*)/)

and you shouldn't have to use chop;

[adriaan]

just remove the \b parts from the capturing parenthesis:

if($line =~ m/\b([ctga]+)\b(.*)/)

and you shouldn't have to use chop;

I have to chop because when perl somehow adds a character after the concatenation and that screws up my searching expression when I'm trying to find what i found here in text file

[KevinADC]

I have to chop because when perl somehow adds a character after the concatenation and that screws up my searching expression when I'm trying to find what i found here in text file

if you are reading the lines in from a file you should just chomp the line before doing anything else to it to remove the newline from the end. Perl will not add any characters that are not already there.