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


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