use strict;
use warnings;

my $inLine = ".abc(abc), \n";

print "'$inLine'\n";
chomp $inLine;
print "'$inLine'\n";
chomp $inLine;
print "'$inLine'\n";
chop $inLine;
print "'$inLine'\n";