Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- while ($line=<STDIN>) {
- chomp($line);
- @parts1=split(" ", $line);
- @parts2=split(" ", $parts1[1]);
- foreach $hvalue (@parts2) {
- if ($hvalue=~/^[0-9A-Za-z]{2}$/) {
- print chr(hex $hvalue);
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement