while($data =~ m/\n\s*(\w+)\s+(.*);/g){
	my $typ = $1;
	my $dat =  $2;
	print "$typ::$dat>>\n";
}

##</code><code>##

"my" variable $typ:: can't be in a package at core_parse_2.pl line 21, near "my $typ:: "
##</code><code>##

while($data =~ m/\n\s*(\w+)\s+(.*);/g){
	my $typ = $1;
	print "Test> $typ\n";
	my $dat =  $2;
	print "$typ::$dat>>\n";
}

##</code><code>##

while($data =~ m/\n\s*(\w+)\s+(.*);/g){
	print "$1::$2>>\n";
}

##</code><code>##

while($data =~ m/\n\s*(\w+)\s+(.*);/g){
	my $typ = $1;
	my $dat =  $2;
	print $typ . "::" . $dat . ">>\n";
}