HEX to ASCII in PERL

while( <DATA>) {
  my $string = pack 'H*', $_;
  #~ $null = pack 'H*', 0;
  #~ $string =~ s/$null//g;
  print $string;
}

__DATA__
280020004C006500760065007200650073002000740069006C0020002F0020004E00610076006E002000200020004D006500730073006900200020000D000A003C00620072003E0020004C006500760065007200650073002000740069006C0020002F002000560065006A0020006F00670020006E0072002E00200020002000410073006B006C00610076007300760065006A00200032002000200020000D000A003C00620072003E0020004C006500760065007200650073002000740069006C0020002F00200050006F007300740020004E0072002E0020002000200020003200380030003000200020000D000A003C00620072003E0020004C006500760065007200650073002000740069006C0020002F002000420079002000200020004C0079006E00670062007900200020000D000A003C00620072003E0020004C006500760065007200650073002000740069006C0020002F0020004200790067006E0069006E00670020002000200039005100200020000D000A003C00620072003E0020004C006500760065007200650073002000740069006C0020002F002000540065006C00650066006F006E0020002000200031003100310031003100310031003100200020000D000A003C00620072003E0020004C00650076006500720069006E00670073006400610074006F0020002000200032003200300035003200300031003100200020000D000A003C00620072003E0020004C00650076006500720069006E00670073007400690064007300700075006E006B00740020002000200031003000200020000D000A003C00620072003E002000540065006B007300740020007000E50020006D00650064006600F8006C00670065006E006400650020006B006F0072007400200020002000420061007200630065006C006F006E0061002000760069006E00640065007200200020000D000A003C00620072003E002000D800760072006900670065002000620065006D00E60072006B006E0069006E0067006500720020002000200032002D003000200020000D000A003C00620072003E002900

Leave a Reply