#!/usr/bin/perl
use warnings;
use strict;

my $a = "Hallo";
print "$a\n";
substr($a, 1, 1) = "";
print "$a\n";