while ($dir =~ /,\d{3} ((.*?)\.avi)/gi) {
   # work with $1 here
}