{
sub Chonk { # $/-aware chop 
            # parm by ref
    my $sref = shift() || $$_; # default $_ 
    $$sref = substr( $$sref, 0, length( $$sref ) - length( $/ ) );
    return substr( $$sref, -length( $/ ) );

}