It seems to me that you can split on whitespaces, and then join only those elements together that you want to preserve.

Assuming that what you are showing us are two different array elements, the following might work (untested):

foreach (@array) {
    s/^[^0-9]*[0-9]+\s+//;
    s/\.//g;
    s/Yes [0-9] //;
}
[download]

Hi, Thanks for the advice, I'm reading the contents of a file my ultimate goal is achieve a sanatzied version before merging with another file.

This mainly depends on the file format. If you can be 100% sure that this, and only this is the way lines will be presented, then you can do the following:

my @output;
foreach my $line (@lines) {
    my @split = split ' ', $line; #split by whitespace
    pop @split if $split[0] eq '*'; #getting rid of leading *
    $split[0] =~ s/\.//g #remove the dots from the element
    push @output, $split[0] . ' ' . $split[3];
}
[download]

Otherwise, you'll need to do a foreach on each of @split's elements, match them to a pattern and use those that you need.

There's was this guy outside of my local Little Caesar's pizza that shook a can with some quarters in it and asked for change. I like pizza so I would see this guy there all the time. After a while I kind of got tired of giving this guy money -- I mean, he didn't seem to be bettering his life at all. Finally I said I wouldn't do it anymore. He seemed pretty miffed about it but, you know what -- he's no longer outside of the pizza joint. He's moved on.

What's the moral of the story? I think people who post requirements without code are like that guy with the can and Monks here are being foolish by writing code for them. I personally insist that people show me some work before I help them out. Maybe Perlmonks would be a better place without that rattling can noise. Just my two cents.

Sorry you feel that way, but as I eluded to im new to this and was just looking for a few pointers.