$ perl -E 'our $V = q{0.1_1}; $V = eval $V; say $V'
0.11

##</code><code>##

$ perl -E 'our $V = q{0.11}; say $V'
0.11

##</code><code>##

sub new {
    my ($class, %attr) = @_;
    ...
}

##</code><code>##

sub queue {
    my $Q = ref $_[0] eq 'GLOB' ? shift : \*STDOUT;
    my @list = @_;
    ...
}