$ cat x.pl
#!/usr/bin/env perl
use strict;
use warnings;

my @stuff = (49, (49), "49", "(49)",
    "123", "76 trombones", "123 E 31st", "123E31st street");
for my $t (@stuff) {
    print "t=<$t>, t+0=", $t+0, "\n\n";
}

Roboticus@Waubli ~
$ perl x.pl
t=<49>, t+0=49

t=<49>, t+0=49

t=<49>, t+0=49

Argument "(49)" isn't numeric in addition (+) at x.pl line 8.
t=<(49)>, t+0=0

t=<123>, t+0=123

Argument "76 trombones" isn't numeric in addition (+) at x.pl line 8.
t=<76 trombones>, t+0=76

Argument "123 E 31st" isn't numeric in addition (+) at x.pl line 8.
t=<123 E 31st>, t+0=123

Argument "123E31st street" isn't numeric in addition (+) at x.pl line 8.
t=<123E31st street>, t+0=1.23e+33