print DESTINATION "old: ${_}new: $line\n";

##</code><code>##

my $a = 1;
my $ab = 1;
my $abc = 1;
my $abcd = 1;

# what do we want to print?
print "$abcd";