Title:
!! back!! 7073347120 FREE VaShiKaRaN SpeCiaLisT IN Allahabad

Actual post:
70733471207073347120707334712070733471207073347120 7073347120

##</code><code>##

use strict;
use warnings;

my @num;

while(my $string = (<DATA>)){
	$string =~ s/(\D+)//g;
	push @num, $string;
}

print $_ for(@num);

__DATA__
Title: !! back!! 7073347120 FREE VaShiKaRaN SpeCiaLisT IN Allahabad
Post: 707334712070733471207073347120707334712070733471207073347120

##</code><code>##

if ($num_count >= 7) && ($post_count <= 5){
    stop_spam;
    }