$ perl -e' $_ = "123abc"; print 0+$_, $/'
123
$