Advertisement
Guest User

blah

a guest
Dec 19th, 2014
175
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.31 KB | None | 0 0
  1. #!/usr/bin/perl
  2.  
  3. while ($line=<STDIN>) {
  4.  
  5. chomp($line);
  6. @parts1=split(" ", $line);
  7. @parts2=split(" ", $parts1[1]);
  8. foreach $hvalue (@parts2) {
  9. if ($hvalue=~/^[0-9A-Za-z]{2}$/) {
  10. print chr(hex $hvalue);
  11. }
  12. }
  13. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement