print "Enter the common character in the batch file:\n";
chomp(my $f = <STDIN>);
print "Enter the number in the last batch file:\n";
chomp(my $l=<STDIN>);
# Now both $f and $l have no trailing newline