my $num; my $variable = "abc123"; if ( $variable =~ /(\d+)/) { $num = $1; }