#!/usr/bin/perl # -*- perl -*- while (<>) { s/[\r\n]+$//; if (/^(#pragma\s+ADDRESS\s+\S+\s+)(\S+)H(\s+.*)/i) { print "${1}0x$2\t$3\n"; } else { print "$_\n"; } }