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

# prints:
# Length: 1
# Length: 0