#!/usr/bin/perl

use strict;
use warnings;

my $file = $ARGV[0];

open (RAW, "./$file") or die "Can't open $file for read: $!";
open (OUT, ">./OUTPUT_$file") or die "Can't open Output_$file: $!";

while(<RAW>) {

        my $line = $_;
        chop($line);
        next if ($line =~ /!/);
        my @splits = split (',', $line);

        my $first_value = @splits[0];

print "$first_value\n";
}