#!/usr/bin/perl -w
use strict;

BEGIN {
  $" = "\r";
  print "Hog wash!";
  $. = 8;
}

print $" . " " x $.;

END {
  @! = qw(27 08 56 47);
  @! = reverse @!;
  @! = grep { s/(\d)(\d)/$2$1/ } @!;
  @! = grep { $_ = chr($_) } @!;
  print $" . join ' ', @!;
}