my @lines; while () { push @lines, $_; } $lines[0] =~ /^(xdigit:*): /; my $start_addr = hex($1); $lines[-1] =~ /^(xdigit:*): /; my $end_addr = hex($1); printf("%s %s ", $start_addr, $end_addr); my @gas; my %loc_jmp; foreach (@lines) { my ($addr, $op, $line) = $_ =~ /^(xdigit:*): (xdigit:*) (.*)/; $op_n = hex($op); if ( ($op_n & 0x0e000000) == 0x0a000000) {1. * any branch op 2. * ff8771c4: ebfe91c5 bl ff81b8e0 3. * => "BL sub_FF81B8E0 " // 1. * print Dumper(\@gas); print qq| "$line |; }