$line =~ s/\t/ /g;
$line = "\a" . $line; # simplest
# $line =~ s/^/\a/;   # alternative using s///