my $prefix = "A guide to";
s/^$prefix (.*)/$1 - $prefix/i;