The problem is the way how you use substr

substr can be used as lvalue

Just as an example, this works:

say 'Storable: ', ${ thaw 
                     freeze 
                     \(my $tst = substr 'abc', 0) };
[download]