Select Code to Download

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

"my" variable $typ:: can't be in a package at core_parse_2.pl line 21,
+ near "my $typ:: "

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

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

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