pirl $> YAML::Syck::Load "--- !!perl/array:var [foo]\n" # long tags
$var = bless( [
                'foo'
              ], 'var' );


pirl $> YAML::Syck::Load "--- !var [foo]\n" # short tags
$var = bless( [
                'foo'
              ], 'var' );

##</code><code>##

pirl $> YAML::Syck::Load "--- !!perl/scalar:var foo\n" # long tags, ok!
$var = bless( do{\(my $o = 'foo')}, 'var' );


pirl $> YAML::Syck::Load "--- !var foo\n" # short tags, :(
$var = 'foo';