Untitled

#!/usr/bin/perl

#This is it, the one Magic String (TM)

#The Magic String is super customizable!
#Change $magic to change the string, $markstats to set the "legal status" of the string, and $disclaimer is a general message
use warnings;
$magic="The Magic String (TM)";
$markstats="trademark";
$country="Japan";
$organization="FooCorp K.K.";
$reverse="false";
$disclaimer="is a $markstats of $organization, registered in $country and other countries";

print "$magic $disclaimer\n";