#!/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";