#!/usr/local/bin/perl
use strict;
use warnings;


my ($Title, $Platform, $Genre) = qw(Ruiner PS Action);
($Title, $Platform, $Genre) = ($Genre, $Title, $Platform);
print "$Title\n";

my $ascii_value = ord("e");
print "$ascii_value\n";


my $character = chr(101);
print "$character\n";

printf("Number %d is character %c\n", 101, 101);

my @ascii_character_numbers = unpack("C*", "gangsterr");
print "@ascii_character_numbers\n";

my $word = pack("C*", @ascii_charcter_numbers);
#my $word = pack("C*", 103, 97, 110, 103, 115, 116, 101, 114, 114);
#print "$word\n";