But how do I find out if a word is not on a line, I thought maybe prefix the statement with a '!'?

Yes, the syntax for a negative match is:

if ($line !~ /\b$word\b/) { ... }
[download]

how do I remove the first char from a string in an array element

You can use the substr function as lvalue:

substr($string,0,1) = undef;
[download]

I want to remove ", 1234567890" in array element 2. It wont always be a number

Yes you can use a simple regex:

my $str = '"hello, my name is Bob, my cell number is, 1234567890"';
$str =~ s/,[^,]*"$/"/;
print "$str\n";
[download]

Now, the tricky bit is to split your records. You can either use a complicated split 306640, or you can use the Text::CSV_XS module from CPAN, or tilly's Text::xSV for a pure Perl implementation.