my ( $accountnumber, $part2, $part3, $part4, $part5, $extension ) = split /[_.]/, $filename;