$ cat SCN.pl 
sub {$_=shift;s.\..$\=$/;$\=(ord($&)-($&gt'K')-($&gt'Q')+1940)\.$/;print''.e;}->(
    'Perligator'
);
$ perl SCN.pl 
2019