open(FH, $filehandle);
while (<FH>) {
        <b>if(/$start_point/../$end_point/) {</b>
                $line = $_; chomp $line;

                if ($line =~ m/SMS for Sub-service 1/) {
                        $httpSMS++;
                }
                if($line =~ m/SMS for sub-service 2/) {
                        $sipSMS++;
                }
                if($line =~ m/Error sending SMS/) {
                        $errorSMS++;
                }
        }
}
close(FH);

##</code><code>##

open(FH, $filehandle);
while (<FH>) {
        $line = $_; chomp $line;

        <b>if($line =~ m/$start_point(.*)$end_point$/s) {</b>
                if($line =~ m/SMS for Sub-service 1/) {
                        $httpSMS++;
                }
                if($line =~ m/SMS for Sub-service 2/) {
                        $sipSMS++;
                }
                if($line =~ m/Error sending SMS/) {
                        $errorSMS++;
                }
        }
}
close(FH);