my $lol = 'Hallo';
if($lol =~ /Hal(l)o/ ){
    print $1; 
}