1) $filename =~ /^(\d+)_/
2) $filename =~ /^(\d+)_(\d+)/
3) $filename =~ /^(\d+)_(\d+)_(\w+)/
....