perl -le 'my $var = "hallo"; substr( $var, 0, 1 ); print $var; substr( $var, 0, 1, ""); print $var'