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