# james, try this - corrected! $escape =~ s/'/\s/;