use strict;
use warnings;

my $num =  1234;
my $str = "1234";

print $num | "2861", "\n";
print $str | "2861", "\n";
__END__
4095
3:75