I need to list all of the unique file names in a specific folder in AppleScript.

The only problem is that the filenames will all be in this format - L58478\_A\_2803

I need to be able to ignore everything after the first underscore.