#!/usr/local/bin/perl

#!/usr/bin/perl
$^_^='()+#=```{|?"?~+.&"=;-[+$*:!>%/)`"`<!(!|"?~`*(@<^*',$^_^='((((.:>"?"<.>`((.(;",.((^(+<+((/-;!*()!*(=>((-!^^',$^_^='$`>:(*,+**!(^?#;((*=`_>(+>(^`%!)`)=:.&.`~%*~|_-;~',$^_=''^'+@$@&'^'^.@%@'.'$^_^"";'.$^_^"",'!~'!~('('.('`_@^!@'^'_$%(@,'.'$^_})'))