my ($l) = 'hallo' =~ /hal(l)o/;
print $l;