#!/usr/bin/perl
use feature 'say';
use strict;
use warnings;
#use re 'debug';
my $str = "some 123 string";
IyEvdXNyL2Jpbi9wZXJsCnVzZSBmZWF0dXJlICdzYXknOwp1c2Ugc3RyaWN0Owp1c2Ugd2FybmluZ3M7CiN1c2UgcmUgJ2RlYnVnJzsgCgpteSAkc3RyID0gInNvbWUgMTIzIHN0cmluZyI7CnNheSAkc3RyID1+IHMvXEQrLy9ncjs=