Problem z wyrażeniem regularnym Perl

Proszę o pomoc z tym zadaniem:

Napisz wyrażenie regularne pozwalające sprawdzić, czy badany ciąg jest poprawną nazwą zmiennej języka Perl, tzn. czy stanowi ciąg wielkich i małych liter oraz cyfr zaczynających się od litery lub znaku podkreślenia.

Jestem początkująca więc to co zrobiłam nie wygląda imponująco:

$ciąg=~ /^\ W;

pewnie chodzilo ci o

Kod:

---

$test =~ m/\w/;

---

Kod:

---

#!/usr/bin/perl
use strict;

my @variables = qw/$var1 @_var2 %var3 $.notvar1 @.notvar2 %.notvar3/;
foreach my $var (@variables) {
        print "$var jest poprawna zmienna w Perlu\n" if $var=~/^[\$\@\%][_\w]+/;
       
}

---

Zmienne z . na poczatku nie sa poprawne oczywiscie, cokolwiek z _ lub \w na poczatku jest ok... do tego skrypt wymaga aby miec $, @ lub % na poczatku zmiennej.