my $x = '234';
my $y = 'a234b';

print $x =~ m/(\d)$/; # liefert 4
print $x =~ m/^(\d)/; # liefert 2
print $y =~ m/(\d)$/; # liefert nichts, da am Ende des Strings keine Zahl ist
print $y =~ m/^(\d)/; # liefert nichts, da am Anfang des Strings keine Zahl ist
print $y =~ m/(\d)/;  # liefert die erste Zahl im String
print $y =~ m/(\d)/g; # liefert alle Zahlen im String