$line =~ s/\Q$line/$prefix: $line/;

##</code><code>##

$line =~ s/^/$prefix: /;