Looking for some help with this perl regex.

I need to extract (3) items from this filename: **abc101.name.aue-abc\_p002.20110124.csv**

abc`101`.name.`aue`-abc\_p`002`.20110124.csv

where item (3) in this example 002, can also be a max of 4 digits, 0002

Here's my non working regex:

```
while (my $line=<>) {
  chomp $line;
    if ($line =~ m/abc(d{3}).name.(w{3})_p([0-9]).[0-9].csv/) {
      print $1;
      print $2;
      print $3;
    }
  }

```