$line =~ s/(?:\t|\z)\K/a/g;  # Requires 5.10+
$line =~ s/(\t|\z)/${1}a/g;  # Slower, but works with earlier versions