my $foo = 12_123_1234_12_1;
my $bar = "12_123_1234_12_1";
my $baz = 0 + $bar;

print $foo, "\n";
print $bar, "\n";
print $baz, "\n";