(my $linefinal = $line) =~ s/.../.../;