How to catch the number in a line in Perl?

Can you also tell me how I can tell if the line has this format:

33c33 

Select allOpen in new window

which is:

$numberc$number

Select allOpen in new window

I try to catch this line and then capture the number in it as you told me in the previous post.

So it will be something like this:

my $catch = 0
foreach my $line (@fileContent){

if($line STARTS WITH diff){
   $catch = 1;
}

if ($catch =1 AND $line =~ SOME REGULAR EXP TO CATCH IF LINE HAS THE EXPECTED FORMAT){
    ($number) = ($LINE =~ /(\d+)/);
}

}

Select allOpen in new window