my $variable = "abc123"; my ($letters) = $variable =~ /^([a-zA-Z]*)/;