perl -wMstrict -E 'my @test = split((/\D/g), "x4d77"); say $];'