Given:

$line = '.abc(abc),';
[download]

You can remove the final character by simply saying:

chop $line;
[download]

This will remove ANY character, even a newline (\n). But to have a little more precision as to which character you might wish to remove, you could use a substitution:

$line =~ s/.$//;  #remove the last character before the newline
$line =~ s/[A-Za-z]$//;  #remove an alphabetic character before the ne
+wline
$line =~ s/;$//;  #remove a semicolon at the end of the line
$line =~ s/[ ]$//; #remove a single space at the end of the line
$line =~ s/\s+$//;  #remove one or more whitespace characters at the e
+nd of the line
[download]