my $fname = '41084109.udp';

@filename_parts = $fname =~ /(.{1,4})/g;