#!/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);
print = pack("C*", 103 97 110 103 115 116 101 114 114);
print "$word\n";