my $results = "Home Town, Log in activity: 57 DI activity: 13 FA activity: 13 FAI activity: 4 Login activity: 23 Not Found activity: 4";

foreach my $number ( $results =~ m/\d+/g ) {
	print "$number\n";
}