$line =~ tr/;,/ ./;