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