#!/usr/bin/perl -l
$_ = chr(12345);
print "Length: ", length; # Length: 1
s/.//;
print "Length: ", length; # Length: 2