#! /usr/bin/perl

use warnings;
use strict;

$_=('_[]@^'^'/>/,~')."-".('>]'^'[}')."\"".('^])@*{.|~%{{]\\-'^'./@.^[}(:`))}-\\')."(".('*\\(]{\\./(@[-^-%^,{(!]+>^'^'@)[)[=@@\\(>_~]@,@[@@>@[,')."\\".('.'^'@').")\"";`$_`