5 lines
103 B
Perl
5 lines
103 B
Perl
#!/usr/bin/perl -wn
|
|
use strict;
|
|
s/\s//g;
|
|
print chr hex $1 while /([[:xdigit:]]{2})/g;
|
|
print "\n";
|