Define "this doesn't work"! Fatal error? Does your computer break down? Does perl say "I don't want to do that"?

# will probably "work"

s/^'A guide to ([^']+)'$/'$1 - A Guide to'/;

# but for it's fixed length:
substr( $_ , -1,0, ' '.substr( substr($_,1,11,'') ,0,10) );
[download]

--
http://fruiture.de